Visual Basic Forum

Verfasst am: 30.01.2012, 10:32 Aufrufe: 138

hi ich werde dir hier an dieser stelle nochmals den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar n ...

Verfasst am: 26.01.2012, 09:17 Aufrufe: 138

Verfasst am: 20.11.2011, 19:59 Aufrufe: 192

txtausgabe .SetFocus .Text = Inhalt End With ZuErsetzen = "" Inhalt = "" Exit Sub cmd_bold_Click_Error: fehlerbehandlung err, "Form_frmmarkiertertext", "cmd_bold_Click" End Sub Private Sub txtEingabe_LostFocus() On Error GoTo txtEingabe_LostFocus_Error If (IsNull(Me.txtausgabe.Value)) Then Inhalt = Me.txtEingabe.Value Else Inhalt = Me.txtausgabe.Value En ...

Verfasst am: 29.10.2011, 10:04 Aufrufe: 148

Verfasst am: 12.10.2011, 12:54 Aufrufe: 336

das heist du möchtest also so eine art bruteforce für eine webseite versuchen... ich würde das aber nicht mit sendkey sondern mit webbrowser1.Document.Forms(0).User.Value = "Admin" 'statt user musst du dir den namen der textbox aus dem quelltext der seite 'und zum bestätigen webbrowser1.Document.Forms(0).submit.Click viel erfolg lg

Verfasst am: 11.08.2011, 11:37 Aufrufe: 170

Hallo, ist es möglich mit dem Mozilla Browser Control Webseiten auszufüllen, ganz so, wie es mit dem WebBrowser Object möglich ist ? Das Mozilla Control kennt anscheinend nicht die Funktion ".document.forms(0).DPListTech.Value = "test"" und das Click event. Also ausser einer WebSeite aufrufen, hat bisher nichts geklappt. Kann mir da jemand weiterhelfen bitte. danke mfG Philippe

Verfasst am: 13.07.2011, 17:33 Aufrufe: 450

StartupPath & "\lang-" & varLang & ".xml") 'Menu frmMain.mnuStripFile.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFile>.Value) frmMain.mnuStripFileTournamentNew.Text = CStr(varXDoc.<Language>.<Menu>.<mnuStripFileTournamentNew>.Value) frmMain.mnuStripFileTournamentOpen.

Verfasst am: 05.07.2011, 12:32 Aufrufe: 1030

In dieser Sammelung ist unter anderen der "ToggleButton" der genau das kann was du suchst. ToggleButton1.Value = True Mit dieser Anweisung wird der Button dann "gedrückt" dargestellt. Darf ich fragen mit welcher SPS-Steuerung du arbeitest und welche .ocx-Datei du für die Kommunikation benutzt? Ich bin auch im Bereich der Automatisierungstechnik tätig und immer interessiert was neues zu ...

Verfasst am: 23.06.2011, 11:35 Aufrufe: 176

camera' is never assigned to, and will always have its default value null C:\Dokumente und Einstellungen\Eigene Dateien\Visual Studio 2008\Projects\Game\Game\Game1.

Verfasst am: 07.06.2011, 16:53 Aufrufe: 468

Text 'zeigt den Link an, von der gedownloaded wird Me.lblstat.Text = "Status : " & Math.Round((position / 1024), 2) & " KB von " & Math.Round((length / 1024), 2) & "KB (" & Me.ProgressBar1.Value & "%)" Me.lblpercent3.Text = Me.ProgressBar1.Value & "%" If speed = -1 Then ...

Verfasst am: 31.05.2011, 15:46 Aufrufe: 232

Hallo, versuchs mal mit : Private Sub DTPicker1_Change() Debug.Print DTPicker1.Value End Sub Wenn das Datum ändert, wird das "Change" Event ausgelöst. Gruß Guido

Verfasst am: 30.05.2011, 06:46 Aufrufe: 232

hi ich muss sagen ich hab vom dtpicker noch nie was gehört bis jetzt aber um irgendwas in bestimmten abständen zu aktualisieren verwende ich nur den timer also private sub form_load() timer1.Interval = 300 timer1.Enabled = True end Sub private sub timer1_tick() DTPicker1.Value = CDate("1/1/2011") end sub keine ahnung ob das funktioniert ... habs nicht ge ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 724

... MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen XLWorkBooks = XLWorkBooks.Open(XlsDatei) XLWorkSheet = XLWorkBooks.ActiveSheet ' Inhalt der gewünschten Zelle ermitteln ZellInhalt = XLWorkSheet.Range(Zelle).Value ...

Verfasst am: 09.05.2011, 09:32 Aufrufe: 425

Bis jetzt passiert aber nichts. Kann mir vielleicht jemand weiter helfen? Hier der Code: Private Sub CommandButton3_Click() 'Datensätze ändern Dim lng As Long Dim i As Integer On Error Resume Next lng = UserForm3.ListBox1.Column(5) Sheets("Tabelle").Activate With UserForm3 'schreibt Daten aus Textbox in Tabelle Cells(lng + 3, 1).Value = .TextBox1.Value Cells(lng + 3, 2).Value ...

Verfasst am: 28.04.2011, 13:17 Aufrufe: 387

Verfasst am: 25.03.2011, 05:34 Aufrufe: 672

Fehler gefunden ^^ Dim buffer() As Byte = New Byte(1024) {} Dim bytesRead As Integer Dim Prozent As Double Dim GesamtProzent As Double ' Fortschritt zunächst auf 0% setzen Me.ProgressBar1.Value = 0 Try ' Datei-Download via HTTP "anfordern" webreq = HttpWebRequest.Create(sURL) ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

**/************/test/filesizes.txt", "filesizes.txt", Temp) Me.ProgressBar1.Value = 0 th.RunWorkerAsync() Timer1.Enabled = True End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.

Verfasst am: 18.03.2011, 13:15 Aufrufe: 241

... ite heißt Add_Project, dann gibt es noch die Klasse Template in der die gewünschten Controls der anderen Klassen GeneralInformations, ProjectParams und ProjectInformations eingefügt werden. Die Controls der Klasse Template werden dann in den Placeholder geschrieben. So weit noch verständlich? Oder gibt es Fragen? Smile

Dies klappt sogar auch alles Very Happy

Jetzt stehe ich aber vor dem Problem der Vererbung von Value ...

Verfasst am: 14.03.2011, 09:07 Aufrufe: 388

hi webbrowser1.Document.Forms(0).TextboxPfad.Value = Textbox3.Text 'wenn ich das richtig in erinnerung habe 'und TextBoxPfad musst du durch den namen von der textbox im webformular ersetzten 'und webbrowser1.Document.Forms(0).Submit.Click lg

Verfasst am: 13.03.2011, 19:27 Aufrufe: 388

Hier ist das Formular was auf meinem FTP Server ist und was ich mit dem WebBrowser Control aufrufe: <form enctype="multipart/form-data" action="#" method="post"> <input type="hidden" name="MAX_FILE_SIZE" value="3000000"> Send this file: <br> <input name="userfile" type="file"><br> <input typ ...

Verfasst am: 07.03.2011, 19:07 Aufrufe: 403

M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. Bin echt sehr dankbar für euere Vorschläge Private Sub Command8_Click() ' M5.4 lesen If (CPU_Connected = True) Then On Error GoTo err: ' M(nr As Long, bit As Long) As Long ' nr: Adresse des Merkerbytes ' bit: Bitnummer im Merkerbyte ' Rückgabe: Gelesener Wert M5_4.Value = CPU ...

Verfasst am: 28.02.2011, 09:11 Aufrufe: 497

hi hab ich schon mal gepostet Private Sub CommandXY_Click() WebBrowser1.Document.Forms(0).loginname.Value = "Name1" WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1" On Error Resume Next WebBrowser1.Document.Forms(0).submit.Click do doEvents while webbrowser1.busy = True WebBrowser1.Navigate "http://www.schulterglatze.de/truppe/wache/teilnehmen" ...

Verfasst am: 26.02.2011, 11:57 Aufrufe: 497

Private Sub Command1_Click() (Account Nr. 1 ) WebBrowser1.Document.Forms(0).loginname.Value = "Name1" WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1" On Error Resume Next WebBrowser1.Document.Forms(0).submit.Click End Sub ### Hier werden die Accountdaten eingegeben und der Grafische Anmelde-Button wird geklickt Private Sub Command100_Click() WebBrowser1.Navigate & ...

Verfasst am: 15.02.2011, 14:24 Aufrufe: 859

Name = "Zaehler0" 'CodesoftApplication.Documents.Application.ActiveDocument.Variables.Item(1).Value = count Try 'AddHandler CodesoftApplication.ActiveDocument.BeginPrinting, AddressOf ActiveDocument_BeginPrinting AddHandler CodesoftApplication.ActiveDocument.EndPrinting, AddressOf ActiveDocument_EndPrinting AddHandler CodesoftApplication.ActiveDocum ...

Verfasst am: 01.02.2011, 23:18 Aufrufe: 543

Caption = "Schaltfläche" & buttonCounter buttonCounter = buttonCounter + 1 WorkspaceAktivesWerkzeug = 1 Mainwindow.Werkzeugleiste.Buttons(1).Value = tbrPressed End Sub Private Sub Timer1_Timer() Dim tmpStr As String If fZeichnen = True Then tmpStr = "(" & Str(NR.Left) & " ," & Str(NR.Top) ...

Verfasst am: 25.01.2011, 10:33 Aufrufe: 683

150/" WIDTH="579" HEIGHT="200"> <param name=PORT value="2710,80"> <param name=background value="FFFF00"><param name=foregroundList value="000000"> <param name=backgroundList value="FFFF00"> <param name=suggestion value="Knuddels"> <param name=idPic value="FFFFFF"> <param name=appletID v ...

Verfasst am: 10.01.2011, 11:43 Aufrufe: 1120

. da ich schon seit mehr als Wochen vergeblich suchte. Und zwar: Möchte ich einen Button klick im webbrowser ausführen lassen ( das ist der einzigste Button auf der ganzen Seite ) ( type=button ) hier der dazugehörige Code <input type="button" class="inCo fwB" value="Add" onclick="Guestbook.entry.send('Add', this);return false;"> da der button aber kein Name enthäl ...

Verfasst am: 31.12.2010, 13:46 Aufrufe: 637

Object, ByVal e As System.EventArgs) Handles Button1.Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All WebBrowser1.Document.GetElementById("gender").SetAttribute("value", "m") WebBrowser1.Document.GetElementById("name").SetAttribute("value", TextBox1.Text) WebBrowser1.Document.GetElementById("rp") ...

Verfasst am: 16.12.2010, 19:36 Aufrufe: 474

... m Bottom As Integer End Structure 'Lokale Variablen Private FramePen As Pen Private DrawArea As Graphics Private MouseDwn As Boolean Private Frame As RECT Private SrcPt As Point Private DrawOnClient As Boolean Private Dragging As Boolean 'Eigenschaften Public Property FrameColor() Get Return (FramePen.Color) End Get Set(ByVal value ...

Verfasst am: 10.12.2010, 08:50 Aufrufe: 396

Members A = " " & Treffer.FullName If A <> "" Then Set A = A.Offset(1) End If Next gruppenmitglieder End Sub Sub gruppenmitglieder() Application.OnTime Now + TimeValue("00:00:02"), "gruppenmitglieder", , True Dim v If ActiveSheet.Name = Sheets(1).Name Then ...

Verfasst am: 03.12.2010, 21:02 Aufrufe: 642

Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = "" For i As Integer = 1 To NumericUpDown1.Value erstellenz() Next TextBox2.Text = "" For i As Integer = 1 To NumericUpDown1.Value erstellen() Next TextBox1.Text = "" For i As Integer = 1 To NumericUpDown1.Value g ...

Verfasst am: 25.11.2010, 17:50 Aufrufe: 637

Object, ByVal e As System.EventArgs) Handles Button1.Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All WebBrowser1.Document.GetElementById("gender").SetAttribute("value", "m") WebBrowser1.Document.GetElementById("name").SetAttribute("value", TextBox1.Text) WebBrowser1.Document.GetElementById("rp") ...

Verfasst am: 06.11.2010, 14:39 Aufrufe: 710

... t du einfach das webbrowser steuerelement auf deine form webbrowser1.Navigate "zuDerSeite" wenn die seite fertig gelade ist kannst du das formular ausfüllen lassen dazu.. schaust du dir den Quelltext der seite an... irgendwo hast du dann mal zum beispiel "<input type="text" name="Username"><br>" webbrowser1.Document.Forms(0).fUsername.Value ...

Verfasst am: 08.10.2010, 06:19 Aufrufe: 532

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: 07.10.2010, 11:00 Aufrufe: 521

Verfasst am: 07.10.2010, 06:05 Aufrufe: 521

SelectSingleNode("/my:meineFelder/my:Datumsdifferenz/my:datum_bis", NamespaceManager) Dim node_diff As XPathNavigator = MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:Datumsdifferenz/my:differenz_tage", NamespaceManager) If node_von.Value.Length > 0 And node_bis.Value.Length > 0 Then Try Dim d_ ...

Verfasst am: 05.10.2010, 10:20 Aufrufe: 395

Suche ein beispiel wie ich FTP Dateien in einen listview anzeigen lassen kann das was in den Dateien steht ebenfalls in einen Listview oder Textbox und die inhaltwerte zb: Online = 0 Mit einer Value Textbox und verändern des inhalts der datei auf 1 ändern kann Online = 1

Verfasst am: 28.09.2010, 16:12 Aufrufe: 555

RegularExpressions.Regex.Match(input, pt) If m.Captures.Count <> 1 Then Return "-1" Else Return m.Value End If End Function Private Sub __Scanner_ScanComplete(ByVal AvailabeIPs As System.Collections.Generic.List(Of NetworkScanner.PingResult)) Handles __Scanner.ScanComplete __IPs = AvailabeIPs Dim ...

Verfasst am: 27.09.2010, 16:50 Aufrufe: 697

Verfasst am: 25.08.2010, 14:05 Aufrufe: 949

ReadAll Exit Function End If 'ReadCommandOutput = -1 End Function '*** Get values of an INI-File *** Function GetINIString(Section, KeyName, Default, IniFileName) Dim INIContents, PosSection, PosEndSection, sContents, Value, Found 'Get contents of the INI file As a string INIContents = GetFile(IniFileName) 'Find section PosSection = InStr(1, INIContents, "[" & ...

Verfasst am: 16.07.2010, 10:03 Aufrufe: 479

Select 'MsgBox (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(IntI) = ActiveSheet.Cells(IntI + 1, 2).Value 'MsgBox (Werte(IntI)) Next IntMin = Werte(1) For IntJ = 1 To IntAnzahl - 1 If Werte(IntJ) <= IntMin Then IntMin = Werte(IntJ) ActiveSheet.Cells(IntJ + 1, 3).Value ...

Verfasst am: 16.07.2010, 10:02 Aufrufe: 479

... n mit ner for schleife dachte ich? Sub Einlesen() 'IntMerker = 0 Cells(Rows.Count, 2).End(xlUp).Select IntAnzahl = ActiveCell.Row ActiveCell.Offset(0, 1).Range("A1").Select 'MsgBox (IntAnzahl) ReDim Werte(IntAnzahl - 1) For IntI = 1 To IntAnzahl - 1 Werte(IntI) = ActiveSheet.Cells(IntI + 1, 2).Value ...

Verfasst am: 13.07.2010, 05:09 Aufrufe: 486

CommandText = "SELECT * FROM commandCenter WHERE systemMessage='" & atResultCommand & "'" Try con.Open() 'hier muss eine Zuweisung hin... irgendwie, nur weiss ich leider nicht wie con.Close() Catch ex As Exception MsgBox(ex.Message) 'strBuff = reader I want to return the value back to the thread were the methode was started End Try Debug.WriteLine(container) End S ...

Verfasst am: 20.06.2010, 15:56 Aufrufe: 389

... End Property Property Get RegisterC() As String RegisterC = State(3) End Property Property Get RegisterD() As String RegisterD = State(4) End Property Public Function DigestStrToHexStr(SourceString As String) As String MD5Init MD5Update Len(SourceString), StringToArray(SourceString) MD5Final DigestStrToHexStr = GetValue ...

Verfasst am: 18.06.2010, 08:58 Aufrufe: 387

Ich will aus einer Zelle im Excel Text auslesen und diesen danach in zwei Variablen aufteilen Hier ein Ausschnitt: Dim IntCounterBU As Integer Dim P1 As Integer Dim StrBU As String Dim IntValA As Integer Dim IntValA As Integer IntCounterBU = 1 'Habe im Originalcode eine Schleife die den Wert immer erhöht, damit es die ganze Spalte durchmacht StrBU = Range("R" & IntCounterBU).Value ...

Verfasst am: 18.06.2010, 08:11 Aufrufe: 781

Execute("Select `title`, `author` from `books`") While Not books.EOF title = books.Fields("title").Value author = books.Fields("author").Value Write(title) Write(", ") Write(author) WriteLine() End While In der While- ...

Verfasst am: 06.05.2010, 17:46 Aufrufe: 479

Nach langem Suchen habe ich die Lösung selbst gefunden: beim login einfach die billige sperre auf value "1" setzen und schon gehts weiter ... bei den anderen beiden einfach folgendes benutzen: WebBrowserMain.Document.GetElementById("ID").InvokeMember("click") weitere befehle zu webbotting :http://thebotnet.com/programming/21514-vb-net-collection-of-web-bot.html

Verfasst am: 01.04.2010, 19:22 Aufrufe: 562

Ähem, in welche zelle soll ein Text ausgegeben werden????? Meinst du sowas? if textboxA="" and checkboxA.value=true then zelle=.... end if

Verfasst am: 07.03.2010, 22:27 Aufrufe: 562

Hallo, ich habe eine Frage zu meinem Programm. Und zwar möchte ich, dass wenn die TextBoxA leer ist und die CheckboxA aktiviert (Value = True) ein Text in eine gewisse Zelle ausgegeben wird. Andernsfalls, soll der Inhalt des Textfeldes übergeben werden. Ich hoffe, ihr könnt mir helfen. Habe leider bei Google nix darüber gefunden. Vielen Dank schonmal. Viele Grüße

Verfasst am: 04.03.2010, 19:22 Aufrufe: 354

hi du musst dich bisschen genauer ausdrücken was meinst du mit fokusieren? wenn du ihn aktivierst? z.b. sowas?! Private Sub Option1_Click() If Option1.Value = True Then Option1.Caption = "Aktiv" 'oder Label1.Caption = "Aktiv" End If End Sub