VB6

[UGRS]Flip · 10. März 2009

HI leute,

WOllt ma fragen wer hier so VB6 proggt.

Das nähmlich mein fachgebiet

Joar eine frage nähmlich zu VB6

Wenn mann auf ein Button Klickt und dann der CommonDialog 6.0 Kommen soll, müste es ja so ausschauen oder ?

Private Sub cmdOpen_Click()
Dim strFile as String
CommonDialog1.ShowOpen
strFile = CommonDialog1.File
' Joar sollte richtig sein oder ?
End Sub

breadfish · 10. März 2009

Korrekt wird das so benutzt:

Code

Private Sub Command1_Click()
	On Error GoTo err_Handler

	Dim strFile As String

	With Me.CommonDialog1
		.CancelError = True
		Call .ShowOpen
		strFile = .FileName
	End With

	Exit Sub
err_Handler:
	If (Err.Number = cdlCancel) Then
		MsgBox "abbruch"
	End If
End Sub

Alles anzeigen

[UGRS]Flip · 10. März 2009

Ja ok wenn ichs jetzt richtig gemacht habe wärs auch so außer dieses handler und das CancelError hab ich vergessen ^^.

Naja ok bist ja ganz schöner streber was Proggen betrifft.

Irgendwo schlag ich dich breadfish

Mal schauen was du nicht checkst.

an breadfish

Ich editier das schau mal iwan wieder rein