Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

function aufrufen

Forumthread: 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

Anzeige

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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige