Visual Basic Forum

Verfasst am: 26.04.2012, 15:19 Aufrufe: 68

die bilder laden immer einfach nur neu bzw random aber ich möchte diese bewegung die er da mit den shapes hat... das bewegen ist auch nicht das problem If Picture1.top > Form1.Height Then Picture1.top = 0 else Picture1.Top = Picture1.Top + 50 end if und das in ein timer alles ok aber mein problem nun wie stoppe ich das ganze und zwar so das es an einer bestimmten pos einrastet ????

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Open) Dim buffer(1024) As Byte Dim bytesRead As Integer While True bytesRead = fileStream.Read(buffer, 0, buffer.Length) If bytesRead = 0 Then Exit While End If requestStream.Write(buffer, 0, bytesRead) End While ' Den request schlies ...

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

dll" (ByVal vKey As Integer) As Short Dim Taste As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If GetAsyncKeyState(67) = -32767 Then Timer2.Start() ElseIf GetAsyncKeyState(88) = -32767 Then Timer3.Start() End If End Sub ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 389

Length - 1 Tmp = Hex(Result(i)) If Len(Tmp) = 1 Then Tmp = "0" & Tmp Res += Tmp Next Return Res End Function Public Function MD5StringHash(ByVal strString As String) As String Dim MD5 As New MD5CryptoServiceProvider Dim Data As Byte() Dim Result As Byte() Dim Res As String = "&quo ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Unprotect Password:="GBF#1" Worksheets("End_Verwendungsnachweis").Unprotect Password:="GBF#1" If Application.EnableEvents = True Then Application.EnableEvents = False End If abschluss_flag = True ret = MsgBox("Soll auch der Verwendungsnachweis erstellt werden?", vbYesNo, "Achtung") If ret = vbNo Then abs ...

Verfasst am: 09.03.2012, 08:32 Aufrufe: 174

hi ob es jetzt eine eigene funktion dafür gibt hab ich jetz nicht geschaut zum runden nimmst im normalfall Math.Round bei dir würd mir jetzt spontan nur folgendes in den sinn kommen if xPT >= 1.3 and xPT <= 1.7 then xPT = 1.5 if xPT >= 1.8 and xPT <= 2.2 then xPT = 2.0

Verfasst am: 20.02.2012, 15:43 Aufrufe: 157

Wie soll ich es denn aber sonst anstellen? Eine If....Then....Else - Schleife ist auch nicht schön. Mit Case geht es besser! Smile

Verfasst am: 20.02.2012, 01:45 Aufrufe: 171

GetProcesses() Process.GetProcessesByName(prozessName) If System.Diagnostics.Process.GetProcessesByName(prozessName).Length > 0 Then 'läuft der Prozess? ProzessHandle = FindWindow(prozessName, vbNullString) SetWindowPos(ProzessHandle, HWND_NOTOPMOST, 100, 150, 400, 600, SWP_SHOWWINDOW) 'setze neue Fensterposition End If ...

Verfasst am: 16.02.2012, 21:00 Aufrufe: 148

hi bisschen googlen hätte geholfen Smile

denn da gibts eine eigene funktion dafür command1_Click if Wochentag(Date) = "Montag" then text1.Text = "Es ist Montag" Private Function Wochentag(dtmDate As Date) As String Wochentag = WeekdayName(Weekday(dtmDate, vbMonday)) End Function

Verfasst am: 15.02.2012, 19:29 Aufrufe: 148

Ich will, dass mein Programm etwas macht, wenn ein bestimmter Wochentag ist. Z.B. : If Montag Then TextBox1.Text = "Es ist Montag." Kennt jemand den Code dafür? Gruß, Georg

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

SelStart = Len(Text1.Text) Text1.SelText = InBuff Datatransfer_Counter = Datatransfer_Counter + 1 'Mit jedem über die Schnittstelle übertragenen Datensatz den Zähler um 1 erhöhen If Datatransfer_Counter = 1 Then frm_Dialog_Check_Data.Show Else MsgBox "Eben wurde die Inprozesskontrolle Nr. " & Datatransfer_Counter & " ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 225

... reiben! leider sagt cmd dann "Zugriff verweigert"! wie kann ich das umgehen bzw ausschalten? ich selber bin als administrator angemeldet weswegen ich denke dass cmd visual Basic nur als normalen Gastuser ansieht! Private Sub Command1_Click() Dim cmd As Long Dim std As Integer Dim min As Integer Dim sek As Integer Dim ges As Integer If Text3(0).Text = "" Then ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

Wie kann ich dem sonst aus einer Inputbox einen Pfad zurückgeben, den er frisst? ---------------------------------------------------- Sub RelativeBildverknuepfung() ' ' RelativeBildverknuepfung Makro ' ' Dim Datei As String 'Hier mal die Filebrowserbox und zurückgeben von Pfad und Filename als Datei vom Wert String With Dialogs(wdDialogFileOpen) If .Display = 0 Then Exit Sub 'wenn abbre ...

Verfasst am: 07.02.2012, 22:33 Aufrufe: 458

... "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, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) If adStatus = adStatusOK Then ...

Verfasst am: 30.01.2012, 11:32 Aufrufe: 591

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, 10:17 Aufrufe: 591

eine Textbox gefüllt ist oder eine Checkbox angekreuzt ist. Ist dies der Fall, soll das entsprechende Tab im TabControl gekennzeichnert werden. Mein VB Code: For Each ctl As Control in Antrag_1 If Dim ctl TypeOf(ctl) Is Textbox Then If ctl.Value <> "" Then TabControl.Pages(0) = "(*) Sammelumzug" End If End If Next Le ...

Verfasst am: 13.01.2012, 19:56 Aufrufe: 213

ich kann dir jetzt nur einen pseudo code aus vb6 bieten das wird aber in vb.net ähnlich funktionieren txtstring.text = "123456" txtsuch.text "123" x = instring(txtstring.text, txtsuch.text) if x = 0 then exit sub txtstring.selstart = x txtstring.sellengh = len(txtsuch.text) pseudocode ende ich hoffe du kannst damit was anfangen

Verfasst am: 06.01.2012, 04:55 Aufrufe: 2691

... 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 = "deine Startseite" If TextBox1.Text = "Deine Startseite" Then ...

Verfasst am: 14.12.2011, 15:52 Aufrufe: 492

Ich möchte alle Items einer Listbox auslesen und prüfen ob meine Variable messageSplit(1) schon vorhanden ist. Das ganze ist in einem If Befehl und sieht etwa so aus: If List1.List(0).Contains(messageSplit(1)) Then WinSock(Index).SendData "Sie haben sich beim letzten mal nicht Ausgeloggt!" Else List1.AddItem messageSplit(1) ...

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Click Dim iResult, iTmp As Short Dim sCmd As String Dim y As Byte 'make sure id is 8 chars in length While (txtID.Text.Length < 8) txtID.Text = "0" & txtID.Text End While 'and no more then 8 chars, really can't happen because the control is set to max 8 chars While (txtID.Text.Length > 8) ...

Verfasst am: 01.12.2011, 21:36 Aufrufe: 390

Hab auch schon in anderen Foren gefragt, die konnten mir allerdings nicht wirklich helfen. Als Beispiel Do If GetAsyncKeyState(Keys.Space) = KeyPressed Then Do Until GetAsyncKeyState(Keys.Space) = KeyPressed 'Hier der Befehl Loop End if Loop Mit dieser abfrage mach ich das so, wenn space gedrückt, wird die Schlei ...

Verfasst am: 23.11.2011, 09:34 Aufrufe: 409

ComboBox1.Items.Clear() Do While reader.Read() If Not IsDBNull(reader("Zeit")) Then If CStr(reader("Zeit")) <> "" Then Me.ComboBox2.Items.Add( Format(reader("Zeit"), "dd/MM/yyyy HH:00 ")) ...

Verfasst am: 22.11.2011, 19:05 Aufrufe: 383

Black For i = 0 To Ball_IndX If MoVinG(i) = 0 Then speedY(i) += gravity speedY(i) += ay(i) speedX(i) += ax(i) speedY(i) *= friction speedX(i) *= friction ball_loc_x(i) += speedX(i) ball_loc_y ...

Verfasst am: 20.11.2011, 20:59 Aufrufe: 363

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: 12.11.2011, 19:47 Aufrufe: 349

Verfasst am: 10.11.2011, 02:33 Aufrufe: 346

One of oldest magic tricks in book is "Find Card". All you require is normal 52-card deck for this particular trick to be very successful as noted by kids magician Brisbane. While it comes to preparation of this magic trick you just have to ensure that you see the bottom card of your deck. As an example we may just say that the bottom card is the ace of spades. Then, you must fan your cards out as well ask ...

Verfasst am: 27.10.2011, 07:32 Aufrufe: 246

hi! warum lässt du select case nicht einfach weg? If Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!" elseif Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "X" Then ...

Verfasst am: 26.10.2011, 19:29 Aufrufe: 246

Caption Case 1: If Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!" End If Case 2: If Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "X" Then ...

Verfasst am: 25.10.2011, 12:56 Aufrufe: 247

versuche mal in dem event Resize if me.windowstate = vbminimized then me.windowstate = vbnormal me.height = 380 me.with = 500 me.left = 0 me.top = screen.height - 500 endif das ist ein psydocode ich habe ich nur aus gedanken geschrieben aber so ähnlich könnte es/ sollte es funktionieren

Verfasst am: 24.10.2011, 23:43 Aufrufe: 246

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 Sub Command1_Click(Index As Integer) If Text1.Text = 1 Then Command1(Index).Caption = "X" Text1.Text = ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 455

PointPairList wie gebe ich meinem BackgroundWorker die dll mit? Wie gesagt wenn ich den Code im HauptThread ausführe funktioniert dieser ohne Probleme Public Function calc_fractions(ByVal group As group, ByRef mes As messurement) As List(Of dataFraction) If group.channels.ContainsKey(mes.name) Then Dim temp As New ZedGraph.PointPairList Dim column ...

Verfasst am: 18.10.2011, 13:16 Aufrufe: 292

hi das einzige was mir einfallen würde ist folgendes Public xAbbruch as boolean btn... wie auch immmer Stop xAbbruch = True end Sub Public Function wasweisich und hier alle paar zeilen if xAbbruch = True then exit Function

Verfasst am: 30.09.2011, 07:59 Aufrufe: 434

Verfasst am: 24.09.2011, 22:56 Aufrufe: 238

Verfasst am: 23.09.2011, 11:19 Aufrufe: 170

die Lösung ist If EinmaligBCS = "" And EinmaligHSI = "" Then Einmalig = "0,00" ElseIf (EinmaligBCS = "19,95" Or EinmaligBCS = "39,90" Or EinmaligBCS = "39,90 + 19,95") And (EinmaligHSI = "19,90" Or EinmaligHSI = "24,90" Or EinmaligHSI = "29,90" Or EinmaligHSI = "19,90 + 24,90") Then Einmalig = EinmaligB ...

Verfasst am: 23.09.2011, 10:27 Aufrufe: 170

B. EinmaligBCS als "" festgelegt wird, dann wird es umgewandelt in "0,00" : Im ersten Baustein: If EinmaligBCS = "" Then EinmaligBCS = "0,00" End If und im 2ten: If EinmaligHSI = "" Then EinmaligHSI = "0,00" End If Mein Problem ist jetzt die Erstellung bzw. Deklaration des "Einmalig" (für den letzten Textbaustein), denn in der dr ...

Verfasst am: 17.09.2011, 10:31 Aufrufe: 213

... uten aus Ergebnis 5 ausrechnen ' Ergebnis 5 = Ergebnis 2 mal Arbeitstage ' Ergebnis 6 = Stunden aus Ergebnis 5 ausrechnen ' Ergebnis 7 = Minuten aus Ergebnis 5 ausrechnen ' Ergebnis 8 = Kosten für Stunden aus Ergebnis 6 ' Ergebnis 9 = Kosten für Minuten aus Ergebnis 6 ' Ergebnis 10 = Gesamtkosten aus Ergebnis 8 und 9 If txtEingabeDifferenzProTag.Text = "" Then ...

Verfasst am: 05.09.2011, 10:15 Aufrufe: 2714

SubItems(7), "***Auftrag", vbTextCompare) = 0 Then UserFormList.

Verfasst am: 29.08.2011, 03:22 Aufrufe: 747

Recordset fileNr = FreeFile Open DateiDialog.Filename For Binary As fileNr Bild = Space(LOF(fileNr)) Get #fileNr, , Bild Close fileNr ADC.Open "SELECT UserID, Bild from user WHERE UserID=" & UID & ";", MyCon, adOpenKeyset, adLockOptimistic, adCmdText If ADC.EOF Then GoTo fehler ADC.Fields("Bild") = LoadPicture(DateiDialog.Filename) ADC.Updat ...

Verfasst am: 09.08.2011, 13:25 Aufrufe: 1410

Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim ds1 As DataSet = ds.GetChanges If ds1 IsNot Nothing Then Try MySQLwrite(ds1) ds.Merge(ds1) ds.AcceptChanges() MessageBox.Show("Datenbank wurde aktualisiert!", "Erfo ...

Verfasst am: 22.07.2011, 20:12 Aufrufe: 549

Hier nochmal damit du siehst das dass eig. nicht so mein Codestil ist: ------------------------------------------------------------------------------------------------------------------------------------------------------ If TextBox1.Text = Nothing Then MsgBox("Bitte Vereinsnamen angeben!") Exit Sub End If 'RadioButton1.Checked = False 'Rad ...

Verfasst am: 22.07.2011, 19:54 Aufrufe: 549

du musst die einen ordentlichen code stiel angewöhnen!!!!! if abfrage dann hier ein einzug!!! end if so kann man das lesen und wenns wie bei dir ist if was weis ich if noch eine abfrage code end if end if aber zu deiner frage... If TextBox1.Text = Nothing Then 'hier prüfst du ob textbox1 leer ist 'wenn das nicht der fall ist (also wenn ein verein drin steht da ...

Verfasst am: 22.07.2011, 14:51 Aufrufe: 549

Ich habe dafür 6Radiobuttons angelegt um auswählen zu können wie viel sie haben wollen[Taler oder Stars]! Hier ist mein Source-Code: ------------------------------------------------------------------------------------------------------------------------------------------------------ If TextBox1.Text = Nothing Then MsgBox("Bitte Vereinsnamen angeben!") Else RadioButton1.Checked = False Rad ...

Verfasst am: 21.07.2011, 19:29 Aufrufe: 703

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.KeyDown If e.KeyCode = Windows.Forms.Keys.Up Then OvalShape1.Top -= 25 End If Wenn ich allerdings den Button einfüge, funktoniert meine Pfeil-Steuerung nicht mehr. Kann mir da ...

Verfasst am: 17.07.2011, 22:48 Aufrufe: 309

Hallo Makle Du beschrkänkst dich in deinem Code auf "MenuStrip"s. For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If End With Next So gehts On Error Resume Next For Each c As Control In Me.Controls With c .Text = "Test" End With Next On Error Goto 0 on error ist wichtig, da es Steuerelemente gibt die keine Text-Ei ...

Verfasst am: 13.07.2011, 16:33 Aufrufe: 309

) Folgenden Code habe ich dazu im Netz dazu gefunden (habe ich natürlich auf meine Form angepasst): For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If End With Next Jetzt dachte ich, dass alle Parameter Text von alle Komponenten innerhalb der Form auf Test s ...

Verfasst am: 13.07.2011, 08:38 Aufrufe: 706

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 = DataEnvironment1.rsKunde If cbKunde <> "" Then cbArtikel.Clear ' rsKunde.Open rsArtikel.Open ...

Verfasst am: 03.07.2011, 13:14 Aufrufe: 291

Rows(i)("Datum") ' Liest Feld DATUM (String jjjjmmdd) aus Datenbank d = d.Substring(7, 2) + "." + d.Substring(5, 2) + "." + d.Substring(1, 4) If d.Substring(7, 4) = Date.Today.Year.ToString Then ' nur Daten des aktuellen Jahres dt = DateValue(d) darray.Add( ...

Verfasst am: 13.06.2011, 19:41 Aufrufe: 729

Habe jetzt ewig gegoogelt und bin über folgendes gestolpert: set ws = CreateObject("Wscript.shell") tab=1 counter=0 fenster=2 ws.run("help") do counter = counter + 1 if counter = fenster + 1 then tab=2 ws.sendkeys "%+{TAB " & tab & "}" wscript.sleep 5000 loop Dies habe ich dann mit folgendem Befehl in eine Batch-Datei eingefügt: ...

Verfasst am: 10.06.2011, 19:41 Aufrufe: 427

de/chv.html so weit ist ja noch alles schön und gut. Der Browser zeigt jetzt (auch in Visual-Basic Webbrowser) "3.0" an. Also hab ich dann mal weiter programmiert: Code von Button1(Click): If Webbrowser1.documenttext = "3.0" Then form3.show End if Voller freude mal ausprobieren... aber es öffnets sich kein form3. Also mal ein Test: Code von Button1(Click): Textbox1.t ...