Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Versenden von Dateien
Autor: Manni
Datum: 05.08.02 22:13
Habe ein kleines Problem wenn ich dieses programm weitergeben will bekommt der jenige eine Fehlermeldung Bild nicht gefunden ist ja auch klar weil der pfad auf meine Festplatte zeigt wie bekomme ich das hin das der jenige das Bild sieht bitte ausführlich bin noch Anfänger Option Explicit Private Sub cmdEnd_Click() End End Sub Private Sub PasswortEin_Change() Dim PassworEin As String End Sub Private Sub PasswortText_Change() Dim PasswortText As String End Sub Private Sub Richtig() If txtPasswort2 = "Manni" Then 'Benutzername imgPasswort.Picture = LoadPicture("I:SicherungenEigene DateienEigene BilderKUGEL VOR SAEULEN.JPG") Else MsgBox "Benutzername falsch!", vbCritical txtPasswort2.Text = "" End If End Sub Private Sub cmdOK_Click() If txtPasswort.Text = "a1b2c3" Then 'Passwort Call Richtig Else MsgBox "Passwort falsch!", vbCritical txtPasswort = "" End If End Sub Private Sub Form_Load() Farbverlauf Me, 10 'Zahl zwischen 2 und 20 End Sub Sub Farbverlauf(Fenster As Form, Auflösung As Integer) On Error Resume Next Dim Farbelöschen As Integer With Fenster DrawStyle = vbInsideSolid DrawMode = vbCopyPen DrawWidth = Auflösung ScaleHeight = 256 For Farbelöschen = 0 To 255 Line (0, Farbelöschen)-(Width, Farbelöschen - 1), RGB(0, 0, Farbelöschen) 'Hier könnt ihr jede mögliche Kombination eingeben, aber immer darauf achten das 255 der maximale wert ist! & 0 der kleinste Next Farbelöschen End With Fenster.AutoRedraw = True End Sub Private Sub Form_Resize() Farbverlauf Me, 10 End Sub Cu Manni

Versenden von Dateien	47	Manni	05.08.02 22:13
Re: Versenden von Dateien	79	devnull	05.08.02 23:07
Re: Versenden von Dateien	28	Manni	05.08.02 23:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen