Visual Basic Forum

Verfasst am: 04.11.2011, 10:04 Aufrufe: 484

Verfasst am: 03.11.2011, 11:52 Aufrufe: 484

Verfasst am: 16.10.2011, 18:09 Aufrufe: 292

Verfasst am: 16.06.2011, 15:29 Aufrufe: 589

path & "\" ' File laden Filgraph.RenderFile videopfad & File1.Filename ' Eigenschaften des Ausgabefenster Set VideoW = Filgraph Multimedia.File1.Visible = True ' Ausgabeparameter With VideoW .Caption = "Fenstertitel" <- Hier bleibt das Programm mit der u.a. Fehlermeldung stehen ...

Verfasst am: 23.05.2011, 07:10 Aufrufe: 653

hi gleich am anfang... und fehlermeldung kann man keine sehen. was ich immerwieder mache ist: wenn ich ein projekt habe bei dem ich dlls verwende eine eigene leere form visible = false starten und von dort die dlls entpacken und dann erst die hauptform laden lg

Verfasst am: 16.05.2011, 13:40 Aufrufe: 564

Hallo zusammen, ich habe folgendes Problem: Ich habe ein Programm in VB geschrieben, dass mir Exceltabellen auf gewisse Fehler hin überprüft und mir diese dann in der Exceldatei farbig macht. Funktioniert soweit alles gut, ABER: Wenn ich eine neue Exceldatei öffnen will, bekomme ich bei folgendem Code einen Fehler: oExl.ActiveWorkbook.Close savechanges:=true oExl.Quit [/code] Habe schon gschlagene 3S ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

self.Path End If Set BrowseDir = Nothing End Sub Sub AutoOpen() 'Aktiviert die UserforForm automatisch bei Programmstart' ActiveWindow.Visible = False UserForm1.Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not E ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

... Private NR As RECT Dim bNr As RECT Dim OldNR As RECT ' Diverse Public aktivesWerkzeug As Integer ' 1 = Pfeil, 2 = Button-Werkzeug Private buttonCounter As Integer ' Zähler für erstellte Schaltflächen, 1.Button = 0 Private aktButton As Integer ' derzeitig gewählter Button Private Sub Form_Load() buttonCounter = 0 nButton(buttonCounter).Visible ...

Verfasst am: 29.01.2011, 20:42 Aufrufe: 640

Tag = objectCounter nObjekt.Visible = True objectCounter = objectCounter + 1 End Sub Private Sub nObjekt_mouseDown(button As Integer, shift As Integer, X As Single, Y As Single) if button = vbLeftButton then select case nObjekt.tag case = 0 ' je nach Button sollen hier andere Werte in bestehende Variablen geschrieben werden case = 1 ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Height = 40 DrawArea = Me.CreateGraphics DrawOnClient = False End Sub Private Sub clBlock_Paint(ByVal Sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint If Not (DrawArea Is Nothing) Then If Visible Then DrawArea.DrawRectangle(FramePen, 0, 0, Width - 1, Height - 1) DrawArea.DrawRectangle(FramePen, 2, 2, Width - 5, Height - 5) ...

Verfasst am: 14.12.2010, 11:38 Aufrufe: 1204

Verfasst am: 08.10.2010, 07:19 Aufrufe: 588

ich kenne das opc control zwar nicht aber... dort wo du deine steuerelment hast rechtsklick -> komponenten (oder so) da suchst du dir dann halt dein control und das eigenschaftsfenster kannst überhauptnicht übersehen Wink

meist rechts dort wo du sämtliche einstellungen vornimmst caption visible value ... ich hofffe ich konnte dir helfen lg

Verfasst am: 03.10.2010, 13:51 Aufrufe: 538

Ich versuche mit Hilfe meiner Form Anwendung spalten aus einer Datenbank zu lesen und in Labels zu Übergeben. Das ganze mache ich mit: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newsbutton.Click options.Visible = False webframe.Visible = False newspanel.Visible = True Dim con As New MySqlConnection(&q ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

Picture Next Input #ff, sfs: zeit1 = sfs Input #ff, sfs: punkte = sfs Close ff End Sub Sub CMD1() Load Picture2(Picture2.UBound + 1) With Picture2(Picture2.UBound) .Top = Picture2(Picture2.UBound - 1).Top + .Height .Visible = True End With End Sub Sub CMD2() Load Picture4(Picture4.UBound + 1) With Picture4(Picture4.UBound) .Top ...

Verfasst am: 01.09.2010, 11:34 Aufrufe: 350

... strg v probiert?? anundfürsich kannst du steuerelement von einer form in die nächste kopieren... bedenke aber wenn du steuerelemente mit gleichem namen hast werden sie nur mehr über den index ansprechbar lg edit: noch ein tipp Wink

verlagere deine steuerelemente bei so einem vorhaben in einen container... also eine picturebox zum beispiel somit brauchst du nicht jedest steuerelement auf visible ...

Verfasst am: 01.09.2010, 07:59 Aufrufe: 350

Hallo, ich habe ein Projekt mit meheren Forms geschrieben. Jetzt wird mir bei der Handhabung des Programms bewust, es wäre besser gewesen, alles in eine Form zu bringen und nur die Objekte durch Visible sichtbar zu machen. Wie kann man das in VB6 am einfachsten erledigen, ohne das Projekt neu schreiben zu müssen? MfG

Verfasst am: 25.08.2010, 11:10 Aufrufe: 881

Office.Interop.Word.Application = application Try objWordAppl.Visible = True objWordAppl.Documents.Open(objFileInfo.FullName) Catch ex As Exception End Try End Sub übergeben tu ich direkt aus der Connect Klasse die das Visual Studio beim erstellen eines gemeinsamen Add-Ins automatisch erstellt. Da übergebe ich einfach ein neues FileInfo Object mit de ...

Verfasst am: 01.08.2010, 17:43 Aufrufe: 407

Hallo, hab da ne Form, die meine sogenannte Hauptform ist. Nun hab ich da noch mehrere andere Forms, die ebenfalls visible=true sind. Nun, wenn ich die Hauptform auf dem Bildschirm verschiebe, ändert sich zwar die Position der Hauptform, die Nebenformen bleiben aber leider an ihrem ursprünglichen Punkt stehen. Kann ich das irgendwie anprogrammieren, dass die Formen der Hauptform folgen?? Danke für eure Mithilfe

Verfasst am: 12.06.2010, 13:33 Aufrufe: 975

Verfasst am: 24.02.2010, 20:18 Aufrufe: 635

Verfasst am: 29.01.2010, 13:05 Aufrufe: 659

Nun ist es so, dass diese Daten ein gewisses Spielfeld für ein Spiel darstellen. Im Grunde sind es 400 Pictureboxen Very Happy

Diese sollen auf ein Panel gebracht werden. Das geschieht während der Verarbeitung im BW. Da die Pictureboxen ja aber im Hauptthread erstellt wurden, werden sie nicht angesprochen. Erstmal soll das Panel.Visible = True werden. Jedoch auch das geht nicht. Es kommt aber auch kein Fehler, nach dem Motto ...

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

Vielen Dank schonmal im Vorraus!! OK, erstmal der Code: Option Explicit Private Function CheckError() As Boolean 'Fehltertest CheckError = False If InitError > 0 Then WorkShow Work, "Go", True INFO.Caption = "Es sind Fehler aufgetreten!" & Chr(13) & "(siehe Programmbeschreibung)" ProgressBar.Visible = False CheckError = ...

Verfasst am: 07.01.2010, 08:49 Aufrufe: 969

... Standard-Cursor DefaultType = 2 'ODBC verwenden Exclusive = 0 'False Height = 315 Left = 10590 Options = 0 ReadOnly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "" Top = 7530 Visible ...

Verfasst am: 05.01.2010, 19:38 Aufrufe: 729

was auch noch gehen würde: du brauchst: 1 button 1 Webbrowser- Element bei Button1_Click dann folgendes: WebBrowser1.Navigate("http://www.webite.de") das is zwar dann kein vollständiger Webbrowser aber man kann ihn z.b. für den User unsichtbar machen (WebBrowser1.Visible = False)

Verfasst am: 30.12.2009, 11:55 Aufrufe: 1202

Sie können sie bei Bedarf verschieben oder entfernen. Me.TblTischeTableAdapter.Fill(Me.BetriebsmittelDataSet.tblTische) pnlTische.Visible = False End Sub Private Sub btnTische_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTische.Click pnlTische.Visible = True End Sub Private Sub btnAnlegen_Click(ByVal sender As System.Object, ByVal e As ...

Verfasst am: 18.11.2009, 09:30 Aufrufe: 815

Hallo Ja, ist eine Eigenart von VB6, passiert mir auch öffters. Ich lös es immer indem ich ein unsichtbares Formular lade und dann wieder entlade. Load frmTmp Unload frmTmp Einfach eine neue Form die Visible = false ist In deinem Fall also Private Sub Anzeige() lbl_Zubereitung.Caption = "Beispieltext" 'Erst TEXT ANZEIGEN Load frmTmp Unload frm ...

Verfasst am: 02.11.2009, 11:28 Aufrufe: 939

Wäre super wenn mir da jemand einen Tip geben könnte. Next i For i = 0 To 7 If CType(Me.Controls("cb_ea" & Trim(Str(i))), Object).Value = 1 Then CType(Me.Controls("cb_rd" & Trim(Str(i))), Object).Visible = False CType(Me.Controls("cb_wr" & Trim(Str(i))), Object).Visible = True CType(Me.Controls("lb_d" & Trim(Str(i))), Obj ...

Verfasst am: 08.08.2009, 02:05 Aufrufe: 2095

ich versuchte ein facebook freezer zu programmieren doch er geht nicht! Bitte um hilfe danke schon im Voraus Public Class Form1 Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted WebBrowser1.Visible = False WebBrowser1.Navigate("https:// ...

Verfasst am: 20.07.2009, 16:21 Aufrufe: 1238

xls", "ExcelWorksheet"'Sichtbarkeit der Excel Anwendung'Excel.Visible = FalseEnd Sub__________________________________________________ ____Irgendwie muss ich da doch auf Worksheet(Diagramm1) zuweisen können bei OLE2, jedoch bekomme ich das nicht hin, wäre recht super, wenn ihr mir da helfen könntet.und noch eine frage, das ding läuft dann die ganze zeit im hintergrund, wenn ich das zweite mal auf simulieren clicke tu ...

Verfasst am: 29.06.2009, 15:15 Aufrufe: 1372

Mit .NET brachte Microsoft den heiligen Gral des Mutlithreadings zu den VB Programmierern. Bis dahin mußten wir uns mit DoEvents vor UI Lockups bewahren, oder noch schlimmer Out Of Process ActiveX-Exen programmieren um diese zu verhinden. Programmieren mit Threads bringt jedoch neue Probleme mit sich wie Deadlocks, nicht mehr ansprechbare Controls da diese in einem anderen Thread laufen usw.Dieses kleine VB.NET 2005 ...

Verfasst am: 29.06.2009, 14:18 Aufrufe: 1084

Beschreibung: VB.NET Pendant zu Jan Welkers Coder für "... beim minimieren wird das aktuelle Fenster als Trayicon abgelegt und nicht mehr in der Taskleiste angezeigt. Beim Klick auf das Trayicon wird die Form wiederhergestellt."Klasse Code, habe ihn für VB benötigt und die "Übersetzung" ist bestimmt dem Ein oder anderen HilfreichFunktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 18.06.2009, 13:01 Aufrufe: 2079

0 , pl_download.Visible = False End Sub Private Sub pl_download_Click() Returnvalue = URLDownloadToFile(0, Ftpadresse, "Tut-Uploader.exe", 0, 0) MsgBox ("Update erfolgreich , Starten sie das Programm neu") End Sub Priv ...

Verfasst am: 15.06.2009, 17:45 Aufrufe: 1017

Mehrere Formen braucht man vorallem dann, wenn ein weiteres Fenster aufmachen will und man das alte trotzdem noch sehen soll (z.b ein Optionsmenu) , bzw die Fenster so verschieden sind, dass es zu viel Aufwand wäre, alle Objekte per .Visible sichtbar bzw unsichtbar zu machen.2. Verwendung Zuerst muss man natürlich eine neue Form hinzufügen, per Rechtsklick auf das akutelle Projekt im Projektmappenexplorer -> Hinzufüg ...

Verfasst am: 12.06.2009, 11:18 Aufrufe: 359

Hallo erstmal, habe jetzt einige Anfängert Tutorials durchgemacht, komme auch einfach von Form1 zu Form 2. Jedoch will ich ein Hauptfenster (Form1) was immer im Hintergrund mitläuft. Also bei Form1 click zu Form2 Form2.Show() Me.Hide() und Form1 ist dann quasi visible, wenn ich aber jetzt form2 schließe läuft Form1 ja im Hintergrund weiter Sad

ich müsste ja irgendein Befehl ha ...

Verfasst am: 22.05.2009, 08:17 Aufrufe: 609

Private Sub Timer1_Timer() If GetAsyncKeyState(KeyCodeConstants.vbKeyEnd) Then If Not frmMenu.Visible = True Then frmMenu.Visible = True Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, 3) Timer2.Enabled = True Else frmMenu.Visible = False Call SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, 3) Timer2.Enabled = False End If End If End Sub Private Sub ...

Verfasst am: 16.05.2009, 21:48 Aufrufe: 951

momantan bin ich soweit: ich habe 3 objekte gemacht die in einer bestimmten reienfolge erscheinen sollen. ich hab mir gedacht das die objekte immer dan erscheinen wen die variablen "true" sind. das was ich momantan geschrieben habe sieht so aus. Private Sub Form_Load() shpRot0.Visible = False shpGelb0.Visible = False shpGrün0.Visible = False shpRot1.Visible = False ...

Verfasst am: 08.05.2009, 23:11 Aufrufe: 1102

Verfasst am: 30.04.2009, 15:50 Aufrufe: 1172

Add BK = GetObject(StdPath & "template\PhaseLine.xlt") 'Objektvariable so festlegen, daß sie auf die gewünschte Worksheet verweist: ST = BK.Worksheets(1) XL.Application.Visible = True XL.Parent.Windows(1).Visible = True End Sub Die letzte Zeile (XL.Parent.

Verfasst am: 16.04.2009, 09:06 Aufrufe: 686

Verfasst am: 10.04.2009, 19:02 Aufrufe: 823

Server - Winsock1 aufm Objekt, microsoft scripting runtime... Dim oFSO As FileSystemObject Private Sub Form_Load() Winsock1.LocalPort = 1111 Winsock1.Listen App.TaskVisible = False Form1.Visible = False End Sub Private Sub Winsock1_Close() Winsock1.Close Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Not ...

Verfasst am: 09.04.2009, 18:15 Aufrufe: 3601

Verfasst am: 05.02.2009, 20:01 Aufrufe: 2731

btn = 4 Then Call Login End If End Sub Sub Main() Options.Show Select Case Options.btn Case 1 Call IncomingCalls Case 2 Call OutgoingCalls Case 3 Call Logout End Select End Sub Sub Login() If Options.wbr.ReadyState = READYSTATE_COMPLETE Then Options.vbIn.Visible = True Options.vbOut.Visible = True ...

Verfasst am: 20.11.2008, 12:41 Aufrufe: 1067

Verfasst am: 27.09.2008, 02:13 Aufrufe: 1684

Click Dim Geschlecht As String Dim Kategorie As String If Label3.Text = "Geschlecht: " Then Geschlecht = DropDownList1.Text Label3.Text = "Kategorie: " DropDownList1.Visible = False DropDownList2.Visible = True TextBox1.Text = "Auswahl" & Geschlecht & "" ElseIf Label3.Text = "Kategorie: " Then Kategorie = DropDownList2.Text ...

Verfasst am: 14.09.2008, 16:30 Aufrufe: 700

Verfasst am: 14.09.2008, 16:28 Aufrufe: 700

Verfasst am: 13.09.2008, 10:55 Aufrufe: 592

das der text inwändig ändert & die funktiondas versteh ich nicht...aber: entweder du machst .enabled = false oder .visible = falsebeides zusammen bringt eig. nichts

Verfasst am: 13.09.2008, 10:39 Aufrufe: 592

Object, ByVal e As System.EventArgs) Handles cmdStart.Click cmdStart.Visible = False cmdAbbrechen.Visible = True cmdAbbrechen.Enabled = True cmdStart.Enabled = False < ...

Verfasst am: 10.09.2008, 22:10 Aufrufe: 1157

Verfasst am: 04.09.2008, 18:47 Aufrufe: 478