Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.05.2008 11:52:34 |
Tanja |
|
|
Aw:Einfacher Bildbetrachter |
01.06.2008 08:26:54 |
jh |
|
|
|
01.06.2008 08:38:36 |
jh |
|
|
|
01.06.2008 08:42:27 |
jh |
|
|
|
01.06.2008 08:46:02 |
jh |
|
|
|
01.06.2008 10:34:38 |
Tanja |
|
|
|
01.06.2008 11:35:49 |
jh |
|
|
Von:
jh |
Datum:
01.06.2008 08:26:54 |
Views:
1036 |
Rating:
|
Antwort:
|
Thema:
Aw:Einfacher Bildbetrachter |
Hallo,
Weil ich nicht weiß, wie deine Form aussieht, kann ich dir nur ein
paar allgemeine Hinweise geben. Bilder anzeigen können ja viele Steuerelemente und auch die UserForm selbst. Wenn du die Bilder
per Buttonclick anzeigen willst, könnte der Code z. B. folgendermaßen aussehen, wobei stillschweigend vorausgesetzt wird, dass deine Form
UserForm1 heißt, der Button für die Bildanzeige CommandButton1, das
Steuerelement, in dem die Bilder angezeigt werden sollen, Image1 und
der Ordner, der die Bilder enthält "C:\Eigene Dateien\Eigene Bilder".
Das in ein Modul:
Option Explicit
Public strImg() As String, strFrm As String, l As Long
Public Function sFormat() As String
Select Case strFrm
Case ""
sFormat = "*.bmp"
Case "*.bmp"
sFormat = "*.jp*g"
Case "*.jp*g"
sFormat = "*.wmf"
Case "*.wmf"
sFormat = ""
End Select
End Function
Und das in den Codebereich der Form:
Option Explicit
Private Sub CommandButton1_Click()
With Image1
.Picture = LoadPicture(strImg(l))
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeZoom
End With
If l 0 Then
l = 1
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub
Private Sub GetImg(ByVal strPath As String)
Dim strTmp As String
If Right$(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
strFrm = "*.bmp"
ReDim strImg(0)
Do
strTmp = Dir$(strPath & strFrm)
If strTmp <> "" Then
Do
ReDim Preserve strImg(UBound(strImg) + 1)
strImg(UBound(strImg)) = strPath & strTmp
strTmp = Dir$
Loop Until strTmp = ""
End If
strFrm = sFormat
Loop Until strFrm = ""
End Sub
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.05.2008 11:52:34 |
Tanja |
|
|
Aw:Einfacher Bildbetrachter |
01.06.2008 08:26:54 |
jh |
|
|
|
01.06.2008 08:38:36 |
jh |
|
|
|
01.06.2008 08:42:27 |
jh |
|
|
|
01.06.2008 08:46:02 |
jh |
|
|
|
01.06.2008 10:34:38 |
Tanja |
|
|
|
01.06.2008 11:35:49 |
jh |
|
|