Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

function aufrufen

function aufrufen
21.05.2003 11:17:43
hartwin
hi alle zusammen!

wie kann ich aus einer function Z.b.:

Public Function SizeBMP(FilePath As String, Width As Long, _
Height As Long) As Boolean

Dim nFNr As Long
Dim nWidth As Long
Dim nHeight As Long
Dim nDummy As String

nFNr = FreeFile
Open FilePath For Binary Access Read As #nFNr
nDummy = Input$(18, nFNr)
If Left$(nDummy, 2) = "BM" Then
Get #nFNr, , nWidth
Get #nFNr, , nHeight
SizeBMP = True
End If
Close #nFNr
Width = nWidth
Height = nHeight
End Function

---------------------
Width
und Height herausholen?
ich kann die function ja nicht mit
y=SizeBMP(c:\x.bmp).Width
aufrufen, um an Width zu kommen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: function aufrufen
21.05.2003 11:35:59
Nepumuk

Hallo Hartwin,
so geht's:

Gruß
Nepumuk

Re: function aufrufen
22.05.2003 10:03:37
hartwin

If Not SizeBMP(Pfadtext.Text + "\untitled1.bmp", Width, Height) Then
MsgBox ("Das eingescannte Bild ist kein Bitmap")
Else
MsgBox (CStr(Width) & CStr(Height))

'bug: element Width ist nich optional

Re: function aufrufen
22.05.2003 11:43:14
Nepumuk

Hallo Hartwin,
Das Wort With ist ein Schlüsselwort in VBA, das darfst du dafür nicht verwenden.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige