Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ordnerauswahl
Autor: AgentMulder
Datum: 19.12.01 22:58
Hallo, ich habe ein Prjekt mit zwei forms auf dem einen zwei button und ein label, u.a. ein button der uaf das zweite verweißt. auf diesem zweiten form ist eine drive1 und eine dir1. ich möchte jetzt das das was ausgewählt in ein label in das form wo das label ist reingeschrieben wird. wie geht das ? hier der code des fensters mit der dir1 und drive1: ' Beispielprogramm StandardsteuerelementeChangeDirForm.frm Option Explicit Public Function DirName$() Show vbModal DirName = Tag End Function ' Startlaufwerk c: Private Sub Form_Load() On Error Resume Next Dir1.Path = "C:\" Drive1.Drive = "C:\" End Sub ' Ende Private Sub Form_Unload(Cancel As Integer) Cancel = True Tag = "" Me.Hide End Sub ' Laufwerkswechsel Private Sub Drive1_Change() On Error Resume Next Dir1.Path = Drive1.Drive End Sub 'ok Private Sub Command1_Click() Tag = Dir1.List(Dir1.ListIndex) DirName = Tag Tag = MainForm.label1.Caption Me.Hide End Sub 'Abbruch Private Sub Command2_Click() Tag = "" Me.Hide End Sub 'neues Verzeichnis Private Sub Command3_Click() On Error Resume Next Dim verz$, pfad$ pfad = Dir1.List(Dir1.ListIndex) verz = InputBox("Neues Verzeichnis erstellen in: " _ & pfad, "Verzeichnis erstellen") If verz <> "" Then If Right(pfad, 1) = "\" Then MkDir pfad + verz Dir1.Path = pfad + verz Else MkDir pfad + "\" + verz Dir1.Path = pfad + "\" + verz End If Dir1.Refresh End If End Sub

Ordnerauswahl	78	AgentMulder	19.12.01 22:58
Re: Ordnerauswahl	253	Dieter	19.12.01 23:08
also nochmal... klappe die 2.	251	AgentMulder	20.12.01 10:03
Hier mal ein bisschen Code...	237	Dieter	20.12.01 10:28
klappt noch ned ganz	40	AgentMulder	20.12.01 11:09
Re: klappt noch ned ganz	390	Dieter	20.12.01 12:06
Re: klappt noch ned ganz	41	AgentMulder	20.12.01 13:03
Re: klappt noch ned ganz	285	Dieter	20.12.01 13:08
Re: klappt noch ned ganz	39	AgentMulder	20.12.01 13:09
Mhm, machen wir's mal wie Lordchen	335	unbekannt	20.12.01 18:34
Re: Ordnerauswahl	39	xWolfx34	20.12.01 10:08
Re: Ordnerauswahl	41	xWolfx34	20.12.01 10:09

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