Visual Basic Forum

Verfasst am: 07.02.2012, 21:33 Aufrufe: 25

Die DataCombo ist mit einem weiteren ADO Steuerelement (Adodc2) gebunden. Adodc2 greift auf dieselbe Tabelle zu: Adodc2.RecordSource = "SELECT DISTINCT Wohnort FROM Adressen ORDER BY Wohnort" War das Update erfolgreich, soll Adodc2 -und damit auch die DataCombo- aktualisiert werden: Private Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, By ...

Verfasst am: 30.01.2012, 10:32 Aufrufe: 140

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: 30.01.2012, 06:51 Aufrufe: 79

hi wie wäre es mit Private Command1_Click() Text2.text = Text1.text End Sub somit schreibst du den inhalt der 1. textbox in die zweite oder hab ich was falsch verstanden?

Verfasst am: 28.01.2012, 13:05 Aufrufe: 79

.. ich habe 2 Textboxen, in der einen Steht der Link und in der 2. der Text ! Wenn ich jetzt auf den Button Klicke soll er mir den Hyperlink in die untere Box schreiben. Diesen Code habe ich gerade dafür: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim url As String ]TextBox2.Text End Sub Aber er sagt mir das die hie ...

Verfasst am: 26.01.2012, 12:22 Aufrufe: 122

Verfasst am: 25.01.2012, 09:30 Aufrufe: 122

aber wenn ich jetzt nen Ordner mit datein asuwähle bleibt er nicht stehen wenn es keine Ordner sondern nur Datein in deem ordner gibt und es steht auch unten kein "öffnen" sodass er den pfad in die Listbox oder das Textfeld schreibt ! Sry bin icht Anfänger .. so sieht mein Code aus: Public Class Form1 Private Property cFile As String Private Sub TextBox1_TextChanged(ByVal sender As Sys ...

Verfasst am: 25.01.2012, 08:45 Aufrufe: 122

Verfasst am: 06.01.2012, 03:55 Aufrufe: 2344

Um eine bestimmte Startseite festzulegen, gibt es keinen so kurzen Code.Die einfachste Möglichkeit ist es die Startseite in einem Textdokument zu speichern. Die idee mit der Txt find ich gut aber ich Selber würdes eher so Machen weil man dann nichts extra abspeichern muss Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "d ...

Verfasst am: 20.12.2011, 10:22 Aufrufe: 72

Microsoft VBScript compilation error '800a03ee' Expected ')' BackupCleanUp.vbs, line 18 Private Function ParseDate (ByVal DateString As String, _ ByVal DatePattern As String) As Date Bitte helfen! / Please help!

Verfasst am: 12.12.2011, 13:50 Aufrufe: 169

Das geht’s um mein Anwendung code für BLDC motor auf die miKrocontoller laden zu können. Ich kann in Moment einmal 8 Bytes senden aber bekomme ich kein ACK(acknowledge) . Ich weiss nicht wie gehe ich vor. ' Handles send data Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command6.Click Dim iResult, iTmp As Short Dim sCmd As String ...

Verfasst am: 29.11.2011, 08:37 Aufrufe: 194

Hallo erstmal in die Runde, ich habe ein Problem an dem ich nun schon ewig hänge und einfach nicht weiter komme. ich möchte ganz einfach den Text aus der Zwischenablage ausgeben bzw. in eine Variable schreiben. Hier mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage&# ...

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

Sobald die Bälle in Ruhe sind und z.b "Aufeinander" liegen. Sinken sie langsam runter. Ich kann es da nicht so einfach Lösen wie mit dem Border. Seht selbst: Hier das Gesamte Projekt zum Download: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim aN As Single Dim bN As Single Render.Refre ...

Verfasst am: 20.11.2011, 19:59 Aufrufe: 192

Funktioniert auch, aber eben immer erst nach dem zweiten click. Was mach ich falsch? Danke im Voraus für Eure Hilfe. Option Compare Database Option Explicit Private ZuErsetzen As String Private Inhalt As String Private Sub cmd_bold_Click() On Error GoTo cmd_bold_Click_Error If ZuErsetzen = "" Then Exit Sub End If Inhalt = Replace(Inhalt, ZuErsetzen, "<b>" & ZuErset ...

Verfasst am: 02.11.2011, 20:54 Aufrufe: 289

... ist es ja nicht, denn wenn man jetzt einfach auf "JA" klickt geht alles normal weiter kann man das noch irgendwie darein schreiben das automatisch auf "JA" geklickt wird oder kann man diesen "Skriptfehler" beheben? Hat jemand vllt. das selbe Problem und konnte es evtl. beheben? Hier ein Screenshot: http://i40.tinypic.com/osy3b8.jpg Code: Public Class Form1 Private ...

Verfasst am: 25.10.2011, 11:38 Aufrufe: 160

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 24.10.2011, 22:43 Aufrufe: 160

... Ich soll mit hilfe von VB6 das Spiel Tic-Tac-Toe programmieren, dazu sollen wir (meine Klasse) jetzt schon (nach 6 Schulstunden) in der Lage zu sein. Ich habe soweit auch schon einen Code erstellt, der soweit auch funktioniert, ich habe aber einen Teil, den ich sowas von gar nicht toll finde, aber auch keine Ahnung habe, wie man ihn schöner bzw. übersichtlicher darstellen kann. So hier mal mein Code Private ...

Verfasst am: 19.10.2011, 10:42 Aufrufe: 156

.. habe mittlw. eine andere Alternative ausprobiert und auch hier scheitert es am Freezing... Private Sub Verzoegerung() Dim Zeit As Integer = 2000 Dim Zeit1 As Integer = System.Environment.TickCount While (System.Environment.TickCount - Zeit1) < Zeit GeckoWebBrowser1.Navigate(URL.Text) End While End Sub EDIT: Hat sich erledigt ...

Verfasst am: 16.10.2011, 17:09 Aufrufe: 171

Verfasst am: 02.10.2011, 18:55 Aufrufe: 142

Also was ihr braucht: -2 Textboxen -1 Button Ihr platziert sie beliebig geht doppelclick auf den Button und gebt ein: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(TextBox2.Text, TextBox1.Text) End Sub End Class

Verfasst am: 01.10.2011, 22:40 Aufrufe: 347

Hallo ihr lieben ich brauche mal euer können ich arbeite zurzeit an einem tool was True Crypt laufwerke einbinden und ausbinden soll 2 button habe ich erstellt in einer form und den code benutze ich nur irgendwie passiert nichts wenn ich auf die button klicke hat einer eine idee Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Tr ...

Verfasst am: 30.09.2011, 06:59 Aufrufe: 353

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 23.09.2011, 09:27 Aufrufe: 112

Private EinmaligBCS As String Private EinmaligHSI As String Private Einmalig As String EinmaligBCS und EinmaligHSI können für verschiedene Werte stehen: (EinmaligBCS für: "" oder "19,95" oder "39,90" oder "39,90 + 19,95") (EinmaligHSI für: "" oder "19,90" oder "24,90" oder "29,90" oder "19,90 + 24,90") Im insgesamt ...

Verfasst am: 20.09.2011, 11:53 Aufrufe: 390

tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _ rstSupplierCustomer!Suppliername & "/" _ & rstSupplierCustomer!Customername rstSupplierCustomer.MoveNext etwas mehr vom Code: ... Private Sub Form_Load() Dim db As DAO.Database Dim rstComponent As DAO.Recordset2 Dim rstSupplierCustomer As DAO.Recordset2 Dim objNode As MSComc ...

Verfasst am: 17.09.2011, 09:31 Aufrufe: 141

jetzt weiterverwenden will, bekomme ich aber folgende Meldung: "Beim Umwandeln aus einer Zahl muss der Wert eine Zahl sein, die kleiner als unendlich ist." Ich verstehe nur nicht warum, da ich die gleiche Logik verwende wie bei den vorherigen Berechnungen. Hier mein Code: Private Sub cmdBerechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdBerechnen.Click ...

Verfasst am: 30.08.2011, 15:41 Aufrufe: 432

Verfasst am: 26.08.2011, 11:20 Aufrufe: 467

Settings" speichert und wenn ich das Programm wieder starte, soll die Spalte (also die 4.) wieder angezeigt werden. Der Inhalt der List ist nicht wichtig. Ich hab schon im Internet gesucht, aber nichts hilfreiches gefunden. Bis jetzt habe ich das: Save: Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Dim str As String = String.Empty ...

Verfasst am: 17.08.2011, 18:37 Aufrufe: 188

so erstmal vielen dank klappt alles wunderbar aber warum ist jetzt text1 automatisch immer im focus sobald die anwendung geöffnet wird ? d.h. der text von text 1 ist automatisch weg... Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CSng(Text4.Text) + CSng(Text5.Text) Text6.Text = Math.Round(Text3.Text) End Sub Private ...

Verfasst am: 17.08.2011, 08:32 Aufrufe: 188

Hallo, Du kannst folgendes machen: Private Sub Text1_GotFocus() Text1.Text = "" End Sub Damit wird der Text in der TextBox gelöscht, sobald die TextBox den Focus bekommt um eine neue Zahl einzugeben. Gruß

Verfasst am: 17.08.2011, 06:27 Aufrufe: 188

Hi BaSh, es ist normal dass du die Dezimalstellen verlierst weil der Befehl Val(Text1.Text) den Wert aus dem Text nimmt und ihn auf die nächste ganze Zahl aufrundet. Besser ist es im Single-Format zu rechnen, da dieses Format auch Dezimalstellen verarbeitet. Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CS ...

Verfasst am: 16.08.2011, 19:45 Aufrufe: 188

Hi ich versuche grade ein simples Programm zu coden das 2 werte zusammen rechnet. nur leider nimmt er die werte aus den textboxen an. Private Sub Command1_Click() MsgBox = Val(Text1.Text) + Val(Text2.Text) End Sub das sollte doch normal funktionieren? so hab das ganze jetzt umgebaut das alles nur in textboxen abläuft Private Sub Command1_Click() Text5.Text = Val(Text2.Text) / 60 Text4.Tex ...

Verfasst am: 09.08.2011, 12:25 Aufrufe: 796

Nur dass es dort für OLE beschrieben war. Folgender Code: Public Sub MySQLwrite(ByRef ds As DataSet) Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da) MySQLcnn.Open() da.Update(ds, "Produktcode") MySQLcnn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Di ...

Verfasst am: 28.07.2011, 20:21 Aufrufe: 501

Hallo zusammen Ich habe folgendes Problem. Jedesmal wenn der "speichern" Button gedrückt wird, löscht es mir in der AccessDatenbank die Tabelle uebergaberapport. Kann mir wer helfen? Private Sub btn_speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_speichern.Click Dim AccessDB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sourc ...

Verfasst am: 21.07.2011, 18:29 Aufrufe: 587

Steuern über Pfeile: Schritt 1 Protected Overrides Function isinputkey(ByVal keyData As System.Windows.Forms.Keys) As Boolean Select keyData Case Keys.Up, Keys.Down, Keys.Left, Keys.Right Return True End Select End Function Schritt 2 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me. ...

Verfasst am: 21.07.2011, 15:14 Aufrufe: 319

Ich will eine Datenbank "auslesen" und hab ich dabei an folgendem Tutorial orientiert: Der Source code lautet folgendermaßen Imports System.Data.OleDb Public Class Form1 Private Sub cmdAlleSehen_Click(...) Handles ... Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim reader As OleDbDataReader con.ConnectionString = &qu ...

Verfasst am: 20.07.2011, 16:09 Aufrufe: 643

Damit speichert VB die Daten aus der Textbox in bestimmte Zellen von Excel. Ich habe auch schon gegoogelt und folgenden Programmcode entdeckt: Visual Basic Quellcode Public Class Form1 Dim Test As New Microsoft.Office.Interop.Excel.Application Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Test.Workbooks.OpenXML("Der Pfad der date ...

Verfasst am: 20.07.2011, 13:19 Aufrufe: 703

hi ja kein problem... Private Declare Function SetCursorPos Lib "user32.dll" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub SetCur2Lbl() Dim xTop As Long Dim xLeft As Long With lblStart xTop = Me.Top + .Top + (.Height / 2) xLeft = Me.Left + .Left + (.Width / 2) xTop = xTop / Screen.TwipsPerPixelX xLeft = xLeft / Screen.Twi ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

Runtime.InteropServices Public Class Form1 'Variablen: Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String( ...

Verfasst am: 13.07.2011, 07:38 Aufrufe: 566

Wenn ich in der Entwicklungsumgebung den Code Schritt für Schritt durch gehe, sehe ich auch, wie der Artikel in die Liste eingelesen wird. Nur die Ausgabe in der Combobox ist fehlerhaft. Wie und wo kann ich die Ausgabe der Liste beeinflussen? Danke für die Bemühungen im Voraus Grüße gerredt Private Sub cbArtikel_GotFocus() Set rsArtikel = DataEnvironment1.rsArtikel ' Set rsKunde = DataEnviron ...

Verfasst am: 25.06.2011, 13:01 Aufrufe: 350

So nun ich vor ein Programm zu schreiben um TapeDrives zu bedienen und auch Backups zu machen was eben über die Win32 API läuft. Ich arbeite zur Zeit mit der VB 2010 Express Edition... Als erstes würde ich gerne mal die PrepareTape Funktion ausprobieren ob überhaupt was geht - Der Rest der Backupsoftware kommt dann später Wink

Dazu hab ich mal folgendes zusammengetragen: PrepareTape Function Private ...

Verfasst am: 22.06.2011, 22:10 Aufrufe: 305

D.h. solange Keyboard oder Maus genutzt wird, wird die Zeit erhöht. Es wäre auch eine Lösung, wenn man die Aktivität des Bildschirmschoners abfangen könnte. Habt ihr eine Idee für mich. Gruß Adelhorst Edit: Die MousePosition kann ich schon abfragen: Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Button1.Text = MousePosition.ToString E ...

Verfasst am: 21.06.2011, 18:55 Aufrufe: 533

move aber ob das funktioniert weis ich nicht so genau hab ich ehrlich gesagt noch nie probiert dass ich ein steuerelement auf 2 stellen gebraucht habe... was aber im notfall auch geht dass du eben ein 2. listviewlement hast und eben in beiden einträgst bei buttons wäre es einfacher... Private Sub command1_click() 'hier dein code End sub private Sub Command123_click() 'der gleiche ...

Verfasst am: 20.06.2011, 05:33 Aufrufe: 370

Hi Christopher, also den Code habe ich im Internet gefunden und an meine Bedürfnisse angepasst, aber wenn der Server nicht in seiner whileschleife bleibt wo er ständig "hören" kann dann verliert er doch die RequestID oder muss das dann ein anderes Problem sein wenn es nicht läuft? Option Explicit Private Sub Form_Load() ' Command1 deaktivieren Command1.Enabled = False ' Port 12345 soll a ...

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:33 Aufrufe: 724

Danke, aber bin selbst drauf gekommen, mit Hilfe einer F&A hier. Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet Dim z As Integer Dim wbk As String ' Excel öffnen On Error Resume Next XL = GetObject(, "Excel.Ap ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 724

Hier meine Function: zunächst die Imports: Imports System Imports System.IO Imports Microsoft.Office.Interop Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim XLWorkBooks As New Excel.Workbook 'hier wird der Fehler verursacht Dim XLWorkSheet As New Excel.Worksheet Dim z As Integer Di ...

Verfasst am: 11.05.2011, 01:27 Aufrufe: 548

Hi mmee, deine Anfrage ist zwar schon einige Tage alt, aber hier kann ich dir ein Beispiel geben wie du deine HEX-Werte in 2er Blöcke formatieren kannst. Zum Testen must du "Text1", "Text2" und "Command1" auf deine Form platzieren. Private Sub Command1_Click() 'HEX-Wert in 2er Blöcke formatieren 'Text1 : der HEX-Wert der formatiert werden soll 'Text2 & ...

Verfasst am: 09.05.2011, 09:32 Aufrufe: 425

Also er liest sich bei einem Klick auf die entsprechende Zeile in der Listbox die Daten in die Textboxen und wenn man in diesen Textboxen etwas ändert, soll die Änderung auch in die Tabelle übernommen werde. 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 Res ...

Verfasst am: 02.05.2011, 16:25 Aufrufe: 647

Kurz zur Erklärung: - Ich habe eine Klasse mit einem Timer und einem OnPaint-Event - In jedem Tick des Timers soll das OnPaint-Ereignis in der Klasse ausgelöst werden um etwas auf das Formular zu zeichen, das die Klasse benutzt - Dafür Erbe ich von der Class Control Public Class TestKlasse Inherits Control Private Sub timer_Tick() Invalidate() End ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

Imports System.IO Imports System.Net Imports System.ComponentModel Public Class Form1 Dim watch As Long Private th As BackgroundWorker Dim speed1 As Long = 0 Dim speed2 As Long = 0 Dim Temp As String = Environment.GetEnvironmentVariable("Temp") Dim Patcherver As String = "1.0" Dim MyPfad As String = Path.GetDirectoryName(Application.Executa ...