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: 02.04.2012, 13:06 Aufrufe: 147

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 abschluss_flag = False Else sFile = "Überblick_Meisterschaften.xlsm" ...

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: 15.02.2012, 14:16 Aufrufe: 183

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 & " an den Rechner übertragen!" ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 225

Verfasst am: 30.01.2012, 11:32 Aufrufe: 590

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: 14.12.2011, 15:52 Aufrufe: 492

List(0).Contains(messageSplit(1)) Then WinSock(Index).SendData "Sie haben sich beim letzten mal nicht Ausgeloggt!" Else List1.AddItem messageSplit(1) End If Das die Null da nicht richtig ist weiß ich, ich möchte ja alle Einträge prüfen. Also was mache ich da? Du Null steht da nur, weil ich es ausprobieren wollte, aber we ...

Verfasst am: 22.11.2011, 19:05 Aufrufe: 382

... For x = 0 To 10 a = bCenterX(i) - (ball_loc_x(x) + 25) b = bCenterY(i) - (ball_loc_y(x) + 25) If a = 0 Or b = 0 Then If b = 0 Then Abstand = Abs(a) If a = 0 Then Abstand = Abs(b) Else ...

Verfasst am: 20.11.2011, 20:59 Aufrufe: 363

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 End If ZuErsetzen = Me.tx ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 454

Y >= 1 Then frac(fractions - 1).PointPairList.Add(New ZedGraph.PointPair(temp(i))) End If Next Else frac = New List(Of dataFraction) frac.Add(New dataFraction(temp, group, mes.type)) End If If mes.limit > 0 Then ...

Verfasst am: 22.07.2011, 20:12 Aufrufe: 549

Checked = False 'RadioButton2.Checked = False 'RadioButton3.Checked = False 'RadioButton4.Checked = False 'RadioButton5.Checked = False 'RadioButton6.Checked = False ' Else If RadioButton1.Checked = True Then Timer1.Start() ElseIf RadioButton2.Checked = True Then Timer1.Start() ElseIf RadioButton3.Checked = Tr ...

Verfasst am: 22.07.2011, 19:54 Aufrufe: 549

... n 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 dann) else ...

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: 13.07.2011, 08:38 Aufrufe: 706

Fields("Matchcode") = cbKunde Then cbArtikel.AddItem rsArtikel.Fields("Name1") ' rsArtikel.MoveNext End If rsArtikel.MoveNext Next i ' rsKunde.Close rsArtikel.Close Else MsgBox "Bitte erst den Kunden auswählen!", , "Artikel" End If btPrüfen.Enabled = True ...

Verfasst am: 07.06.2011, 17:53 Aufrufe: 567

ProgressBar1.Value & "%" If speed = -1 Then Me.lblspd.Text = "Geschwindigkeit : " & "wird berechnet..." Else Me.lblspd.Text = "Geschwindigkeit : " & Math.Round((speed / 1024), 2) & " KB/s" End If Me.ProgressBar1.Value = percent End Sub Ich hoffe ihr könnt mir weiterhelfen. Und ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Start(MyPfad & "\PatcherUpdate.exe") End Else If File.Exists(MyPfad & "\PatcherUpdate.

Verfasst am: 20.03.2011, 22:12 Aufrufe: 618

vb-paradise.de/index.php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try Warum geht das nicht bei vb-Paradise.de gibt es noch ei ...

Verfasst am: 15.03.2011, 10:18 Aufrufe: 346

. ElseIf programmiert und jetzt muss ich das Programm durch anderes Algorithmus verkürzen. ich habe hier das Original Programm dass ich am Anfang programmiert hab geschrieben, und folgt ihn die Verkürzung! wäre super wenn mir hier jemand helfen könnte! Private Sub HV_bd_Click() Dim Bd As Double Dim ia As Integer Dim iv As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer Dim f A ...

Verfasst am: 13.03.2011, 20:27 Aufrufe: 460

Verfasst am: 05.03.2011, 11:19 Aufrufe: 383

hi ich bin was icq angeht nicht mehr ganz auf letztstand aber ist egal ich nehme an du hast da einen button auf den du draufklickst also login Button1_click... if txt_passwort.text <>"" and _ len(txt_passwort.text) =< 10 and_ isnumeric(txt_passwort) = False then 'hier dein code else exit sub end if end sub das ist jetzt ein pseudo code aber d ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

Top)) & ")" Mainwindow.Statusleiste.Panels(1).Text = tmpStr Call FlipFocusRect Else tmpStr = "(" & Str(mXPos) & " ," & Str(mYPos) & ")" Mainwindow.Statusleiste.Panels(1).Text = tmpStr End If End Sub ' ' Mausauswertung ' Private Sub Form_MouseDown(Bu ...

Verfasst am: 31.01.2011, 18:29 Aufrufe: 509

Y + 16 Then Befehlsfenster.ShowDialog() Exit For Else End If Next End If Kurze Erklärung: Ich will mit meinem Cursor eine Picturebox anklicken die während des Ausführens erst generiert wird, ich schreibe sie zudem in eine Arrayliste um alle Pictureboxen die erstellt wurden zu speichern. Die Zeile If Spi ...

Verfasst am: 29.01.2011, 20:42 Aufrufe: 640

... n(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 ' je nach Button sollen hier andere Werte in bestehende Variablen geschrieben werden end select else ...

Verfasst am: 25.01.2011, 11:15 Aufrufe: 710

Verfasst am: 20.01.2011, 08:26 Aufrufe: 360

Verfasst am: 17.01.2011, 13:07 Aufrufe: 360

6 anzahl(20, 1) = "20": anzahl(20, 2) = 1.6 If menge = anzahl(20, 1) Then preis = anzahl(20, 2) Else preis = 1.4 End If summe = menge * preis p_staffel = summe 'wie geb ich hier den preis extra (eigene zelle) aus End Function die menge soll eingegeben werden, preis zu geordnet werden, anschließend die summe berechnet und zum schluß menge, ...

Verfasst am: 17.01.2011, 11:48 Aufrufe: 718

Ich habe anhand verschiedenster Anleitungen und Teilen aus Scripts von diversen Websites ein kleines VBS geschrieben, das folgende Funktion hat: Teil1: + Connect auf Oracle Datenbank + select statement wird ausgeführt wobei die Personalnummer und der An/Abwesend Status ausgelesen werden. + die Ausgabe wird etwas abgewandelt (if 0 then "Abwesend" else "Anwesend") und in eine CSV-Datei geschri ...

Verfasst am: 18.12.2010, 15:25 Aufrufe: 607

... Dim grafik_dest As Graphics = Graphics.FromImage(bild_dest) grafik_dest.DrawImage(bild, 0, 0, _ bild_dest.Width + 1, _ bild_dest.Height + 1) PictureBox1.Image = bild_dest If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then bild_dest.Save(SaveFileDialog1.FileName) Else ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Top + Height DrawReversibleRect(Frame) End If End Sub Private Sub DrawReversibleRect(ByRef ARect As RECT) Dim g As Graphics = Parent.CreateGraphics Dim DC As Integer Dim BRect As Rectangle Dim CRect As RECT 'Koordinaten von ARect sind Client-Koordinaten If DrawOnClient Then DC = g.GetHdc.ToInt32 Call DrawFocusRect(DC, ARect) ...

Verfasst am: 28.11.2010, 19:13 Aufrufe: 610

Verfasst am: 16.10.2010, 17:57 Aufrufe: 829

GetResponseStream()) Dim newestversion As String = sr.readtoend() Dim currentversion As String = Application.ProductVersion If newestversion.Contains(currentversion) Then MessageBox.Show("No updates need") Else MessageBox.Show("1 update need") End If End Sub End Class Und n ...

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

Length > 1 Then Dim abc_ As String = FilterMask(args(1)) If abc_ <> "-1" Then abc = abc_ Console.WriteLine("Benutze Adressbereich aus Kommandozeile: {0}", abc) Else Console.WriteLine("Der Adressbereich der Kommandozeilenargumente konnte nicht validiert w ...

Verfasst am: 20.09.2010, 16:08 Aufrufe: 903

Hallo, Wenn im String keine übereinstimmung gefunden wird gibt indexof -1 zurück. Am besten mit einer if-Anweisung -1 abfangen. If b = -1 Then Exit Sub Else z = Microsoft.VisualBasic.Left(a, b) TextBox2.Text = z End If So müsste das gehen. Gruß Charly

Verfasst am: 16.09.2010, 07:03 Aufrufe: 1346

nicht if ID = "5" sondern if len(ID) = 5 then 'vorgang wird bearbeitet else 'bitte geben sie ihre korrekte ID ein endif aja nochwas GANZ WICHTIG wenn du sowas machst solltest du die Variable ID nicht als integer deklarieren warum?: Integer hat die obergrenze mit 32767 das heist sobald du eine ID eingibst die größer ist -> Fehler (Überlauf) weiters wenn du z.

Verfasst am: 07.09.2010, 17:26 Aufrufe: 935

Verfasst am: 06.09.2010, 15:37 Aufrufe: 541

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210

Echo "Remote-Taskplanung: " & cmd Else 'lokale Taskplanung cmd = "SCHTASKS /Create /RU " & UsrRun & " /RP " & PWRun & " /RL HIGHEST /F /TN " & Chr(34) & Taskname & Chr(34) & " /TR " & Chr(34) & Programm & Chr(34) & " /SC " & Zeitplan & " /D " & Chr(34) & Wochentage & ...

Verfasst am: 25.08.2010, 08:56 Aufrufe: 1210

ExecQuery("SELECT * FROM Win32_OperatingSystem",,4 Cool

For Each objItem in colItems 'tmp1 = "Caption: " & objItem.Caption if InStr(1, LCase(objItem.Caption), "windows 2000", 1) > 0 then OS = "W2K" elseif InStr(1, LCase(objItem.Caption), "windows XP", 1) > 0 then OS = "WXP" elseif InStr(1, LCase(objItem.Caption), "windows 7& ...

Verfasst am: 02.08.2010, 08:27 Aufrufe: 592

Verfasst am: 30.07.2010, 23:14 Aufrufe: 592

Text Max() = Split(IP, ".") If Max(0) Or Max(1) Or Max(2) Or Max(3) > 255 Then MsgBox "IP cannot be bigger then 255.255.255.255", vbCritical End If txtip.Text = "255.255.255.255" Else End If Allerdings wird, wenn der User einen Block der IP im Textfelt über 255 eingibt, die Meldung zwei mal angezeigt, was recht unschön ist. ...

Verfasst am: 30.07.2010, 17:18 Aufrufe: 459

... hen GoTo finish pos% = InStr(a$, ";") FileName$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") Was$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ Mehr: pos% = InStr(a$, ";") x$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") If pos% <> 0 Then y$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) Else ...

Verfasst am: 27.07.2010, 08:53 Aufrufe: 328

OK Then Dim fs As New FileStream(sfd.FileName, FileMode.Create) Dim sw As New StreamWriter(fs) sw.WriteLine() sw.Close() savetxt(sfd.FileName) Else MsgBox("Abbruch") End If End Sub Private Sub savetxt(ByVal datei) ... Berechnung ...

Verfasst am: 23.07.2010, 19:42 Aufrufe: 608

... Then GoTo finish pos% = InStr(a$, ";") FileName$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") Was$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ Mehr: pos% = InStr(a$, ";") x$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") If pos% <> 0 Then Y$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) Else ...

Verfasst am: 30.06.2010, 08:34 Aufrufe: 838

... j = 1 To Len(str) dStr = "Zeile" & j & "=" For i = 1 To 3 If str = "" Then Exit Sub dStr = dStr & Mid$(str, 1, InStr(1, str, ",") - 1) If Not i = 3 Then dStr = dStr & "," str = Mid$(str, InStr(1, str, ",") + 1) Else ...

Verfasst am: 29.06.2010, 07:30 Aufrufe: 838

... so ählich Dim str As String: str = ",377,377,0,377,377,0,377,377,0," Dim dStr As String str = Mid$(str, 2) dStr = "Zeile1=" For i = 1 To 3 dStr = dStr & Mid$(str, 1, InStr(1, str, ",") - 1) If Not i = 3 Then dStr = dStr & "," str = Mid$(str, InStr(1, str, ",") + 1) Else ...

Verfasst am: 20.06.2010, 16:56 Aufrufe: 429

... String(State(1)) & LongToString(State(2)) & LongToString(State(3)) & LongToString(State(4)) End Function Private Function LongToString(Num As Long) As String Dim a As Byte, B As Byte, c As Byte, d As Byte a = Num And &HFF& If a < 16 Then LongToString = "0" & Hex(a) Else ...

Verfasst am: 09.06.2010, 20:51 Aufrufe: 971

EventArgs) Handles ServerStartenToolStripMenuItem.Click If client.Connected = True Then MsgBox("Server ist schon verbunden") Else mainserver() End If End Sub Private Sub mainserver() Server = New TcpListener(ipendpoint) Server.Start() client = Server.AcceptTcpClient ...

Verfasst am: 04.05.2010, 12:31 Aufrufe: 576

Verfasst am: 08.04.2010, 07:55 Aufrufe: 772

Also die Wahrscheinlichkeit eine Straße, ein Pärchen etc zu treffen berechnet sich aus der Anzahl der verschiedenen Zweige... Die Frage ist aber nun: Wie kann ich so ein Diagramm umsetzten? (Ich weiß, dass ich so evtl sehr sehr viele If else Anweisungen bekomme) Des weiteren Muss ich an gewissen Stellen(direkt nach der Hand, dann nach dem Flop und nochmal nach dem Turn) Zweige meines Baumdiagramms " ...

Verfasst am: 23.03.2010, 23:24 Aufrufe: 593

Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 192 .TintAndShade = 0 .PatternTintAndShade = 0 End With Else If Tabelle="Name"then For i = 1 To 1000 'soll immer eine zeile weitergehen hilf = "A" + Str(i) Range(hilf).Activate 'soll prüfen ob das feld leer ist If IsEmpty(ActiveCell) Then With Selection.Interior .Pattern = xlSolid .PatternColo ...