Visual Basic Forum

Verfasst am: 19.11.2009, 09:08 Aufrufe: 1637

Verfasst am: 18.06.2009, 12:02 Aufrufe: 845

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

Jetzt benutzen wir noch das Common Dialog Control im Button, damit ihr später einfach eine Datei aussuchen könnt.Private Sub Command1_Click() On Error GoTo Err: With cdlg .CancelError = True .ShowOpen If SendFile(.FileName) Then GoTo Err: End With Exit Sub Err: Call ...

Verfasst am: 18.12.2008, 21:42 Aufrufe: 2233

0 If cmdColor.Value = 1 Then On Error Resume Next With CommonDialog1 .CancelError = True .ShowColor If Err = 0 Then farbe = .Color End If End With End If ' Wer sich wunder ? = ich habe das so gemacht falls der user noch mal auf die checkbox klick ' um sie unmackiert zu machen öffnen sich nicht der Dialog End Sub Private Sub pl_html_Click() url = pl_url.

Verfasst am: 01.09.2008, 17:15 Aufrufe: 1756

... SubErklärung:Bild von Image1 auf Bild von Image2 setzen (Image2=leer Wink

)Dieser Button dient also zum Bug fixxen , jetzt fehlt nurnoch die Funktion , das bild zu speichern.Das darf natürlich nicht fehlen.wir fügen ein:1ne Textbox:text11 Common Dialog:cdlg1 Button:Command4Nun fügen wir in den sub Form_load noch folgendes ein:text1.visible=falseLos gehts , in die form einfügen:With cdlg .CancelError ...

Verfasst am: 01.08.2008, 22:18 Aufrufe: 1288

Jo ich checks aber nich wie ich dsa machen sollKönnteste mein source so ordnen das es klappt?habs ja zu 95% komplett...Source:Private Sub cmd_search_Click()With dia_wahl.CancelError = True.FileName = "waehlen.txt".ShowOpentxt_searched.Text = .FileNameEnd WithEnd SubPrivate Sub Command1_Click()Dim a As StringDim b As StringWith Inet1.AccessType = icUseDefault.Protocol = icFTP.RemotePort = "21".URL = ftp_url.Text.UserN ...

Verfasst am: 28.07.2008, 19:43 Aufrufe: 1005

Verfasst am: 28.07.2008, 17:32 Aufrufe: 1242

Common dialogHatte dsa prob vorhin auch :wink:So:With Commondialog .CancelError = True .FileName = "blablabla.txt" .ShowOpenEnd With

Verfasst am: 28.07.2008, 15:26 Aufrufe: 1005

Verfasst am: 28.07.2008, 14:01 Aufrufe: 1005

Verfasst am: 28.07.2008, 13:56 Aufrufe: 1005

Verfasst am: 28.07.2008, 13:42 Aufrufe: 1005

Verfasst am: 28.07.2008, 13:38 Aufrufe: 1005

Ich habe eine .ShowSave gemacht, für mein MP3 Dings da , zum Pfad auswählen, doch dsa funktioniert nichtIm mom:With Commondialog .CancelError = True .FileName = "bla.wav" .ShowOpenEnd WithWie kann ich machen , das ich da was AUSWÄHLEN kann , nich saven?Ach , sry, das schon wieder so ne scheiß Frage kommt -.-

Verfasst am: 07.07.2008, 14:02 Aufrufe: 854

Verfasst am: 04.07.2008, 16:33 Aufrufe: 3309

... wir mal an, also erstes müssen wir die Komponenten Laden das wehren: Code: Visual Basic: Code: Visual Basic: Code: Visual Basic: Code: Visual Basic: [code]Private Sub Ende_code_Click() End End Sub Private Sub Form_Load() cdl.FontName = "Arial" End Sub Private Sub Font_code_Click() cdl.CancelError ...

Verfasst am: 02.03.2008, 19:57 Aufrufe: 446

Verfasst am: 14.12.2007, 04:00 Aufrufe: 421

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2012

CommonDlg - Einfache Funktion um das CommonDialog Control nutzen zu können ohne immer wieder den selben Code zu schreiben. Public Function CommonDlg(ByVal nFilename As String, ByVal nDialogTitle As String, ByVal nInitDir As String, ByVal nFilter As String, ByVal OpenOrSave As Integer) As String On Local Error GoTo Err: With cdlg .CancelError = True .InitDir = nInitDir .DialogTitle = nDial ...

Verfasst am: 08.12.2007, 14:04 Aufrufe: 345

das sieht doch im Prinzip so richtig aus... cd.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly cd.ShowOpen On Error Resume Next If cd.CancelError = False And Err.Number = 0 Then Text1.Text = cd.FileName End If //EDIT:: da war wohl wer schneller

Verfasst am: 01.11.2007, 22:36 Aufrufe: 246

Verfasst am: 15.10.2007, 09:36 Aufrufe: 665

Als Grundgerüst kannste das benutzen: Ich nenne den Common Dialog "cdlg" On Error Goto Err: with cdlg .CancelError = True .InitDir = CurDir .ShowOpen 'ShowSave . end with 'Hier dein weiterer Code 'Beispiel zum überprüfen Call MsgBox(cdlg.Filename) cdlg.FileName = "" Exit Sub Err: cdlg.FileName = "" Wenn man es mal versteht ist es ganz simpel. Mit dem ...

Verfasst am: 22.08.2007, 15:49 Aufrufe: 3095

.. , 1 common dialog alles, jedoch will der einfach nicht -_- Option Explicit Dim bError As Boolean Private Sub Command2_Click() On Error Resume Next With CommonDialog1 .CancelError = True .ShowOpen Text1.Text = CommonDialog1.FileName End With End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) If State = icError Then bError = True End If End Sub Pr ...

Verfasst am: 21.08.2007, 21:45 Aufrufe: 3095

.. , 1 common dialog Option Explicit Dim bError As Boolean Private Sub Command2_Click() On Error Resume Next With CommonDialog1 .CancelError = True .ShowOpen Text1.Text = CommonDialog1.FileName End With End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) If State = icError Then bError = True End If End Sub Private Sub Command1_Click() Dim sLocalF ...

Verfasst am: 19.08.2007, 20:58 Aufrufe: 1348

. .CancelError = True .InitDir = Path .Filter = "Textdateien (TXT, RTF, DOC)|*.

Verfasst am: 08.08.2007, 17:36 Aufrufe: 1901

Jetzt benutzen wir noch das Common Dialog Control im Button, damit ihr später einfach eine Datei aussuchen könnt. Private Sub Command1_Click() On Error GoTo Err: With cdlg .CancelError = True .ShowOpen If SendFile(.FileName) Then GoTo Err: End With Exit Sub Err: Call MsgBox("Error while sending the file!", vbCritical) End Sub Bis jetzt sollte ei ...