Visual Basic Forum

Verfasst am: 24.09.2011, 22:56 Aufrufe: 238

ich hab eine minimap geadded, funktioniert auch alles - wenn ich eine unit bewege dann wird die alte position nicht gelöscht! wie kann ich hier dem programm sagen, es soll nur die aktuelle position zeichen - aber die alten sofort wieder löschen auser die einheit bewegt sich nicht mehr ? Public Sub drawminimap(z) tempa = mapwidth / 70 tempb = mapheight / 70 minimap.ForeColor = vbGreen minimap. ...

Verfasst am: 05.09.2011, 10:15 Aufrufe: 2714

SubItems(7), "***Auftrag", vbTextCompare) = 0 Then UserFormList.ListView1.ListItems(i).ForeColor = vbRed UserFormList.ListView1.ListItems(i).ListSubItems(7).

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

Stop If Leben.Value = 0 Then Unload Me If Leben.Value = 0 Then Form0.Show Label6.Caption = Leben.Value If Leben.Value < 66 Then Label6.ForeColor = &HFFFF& If Leben.Value < 26 Then Label6.ForeColor = &HFF& End Sub Sub Levelende() treffer = 0 If Picture5.Left > Picture11(0).Left And (Picture5.Left < Picture11(0).Left + Picture11(0).Width) ...

Verfasst am: 24.01.2010, 19:09 Aufrufe: 505

bin ziemlich frustriert, nach langem suchen im internet bekomme ich es einfach nicht hin Crying or Very sad

ich habe folgenden quelltext: Dim myPing As New Ping() Dim host_karuru As String = "10.2.0.1" Dim reply_karuru As PingReply = myPing.Send(host_karuru, timeout, buffer, pingOptions) If reply_karuru.Status = IPStatus.Success Then lbl_karuru.ForeColor = System.Drawing.Color.Green ...

Verfasst am: 02.11.2009, 11:28 Aufrufe: 939

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))), Object).ForeColor = System.Drawing.Color.White CType(Me.Controls("lb_d" & Trim(Str(i))), Object).B ...

Verfasst am: 29.06.2009, 15:00 Aufrufe: 1100

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene UDP Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 Backgroundworker1 ProgressbarDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktio ...

Verfasst am: 29.06.2009, 14:59 Aufrufe: 1329

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 BackgroundworkerDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktion:Visual Basic: Q ...

Verfasst am: 21.06.2009, 14:40 Aufrufe: 339

Heyho;).. So...hab folgenden Code: If Me.colordialog1.ShowDialog = DialogResult.OK Then Label1.ForeColor = colordialog1.Color End If Nun möchte ich das in Label2 die Hexadezimalzahl der Farbe von Label1 steht. Wie kann ich das anstellen? Freue mich über Hilfe! Mfg # VooDoo

Verfasst am: 13.06.2009, 13:56 Aufrufe: 1619

Green .Item(DateTime.Now.Day - 1).ForeColor = Color.White End With Die ListView Eigenschaft .Activation steht auf TwoClick. Sofern ich nun einen Doppelklick auf eine Reihe mache, wird eine neue Form aufgerufen in welcher ich die "Stunden" und einen "Kommentar" eintragen kann. Wenn ich dann den Button "Speichern" klicke wird folgendes ausgeführt: Ich zähle ...

Verfasst am: 02.05.2009, 19:02 Aufrufe: 820

File.Delete(file2) Dim Textfarbe As String = cmd(0) Dim Hintergrundfarbe As String = cmd(2) Dim Speed As String = cmd(3) Dim Text As String = cmd(4) If Textfarbe = "Rot" Then RichTextBox1.ForeColor = Color.Red End If If Textfarbe = "Grün" Then RichTextBox1.ForeColor ...

Verfasst am: 10.04.2009, 08:23 Aufrufe: 2099

nur hab ich ein problem und zwar folgende schleife For Each tbs In Me.Controls If i < 7 Then If i > -1 Then If TypeOf tbs Is TextBox Then If tbs.Text = Begriffe(i) Then tbs.ForeColor = System.Drawing.Color.Green Punkte = Punkte + 1 i = i - 1 ...

Verfasst am: 11.08.2008, 12:31 Aufrufe: 588

Verfasst am: 13.04.2008, 16:27 Aufrufe: 565

Caption = "" Next i End Sub Private Sub Label1_Click(Index As Integer) Dim abfall As String If Label1(Index).Caption = "" Then Select Case figur Case "O" Label1(Index).Caption = "O" Label1(Index).ForeColor = "&H000000FF" abfall = "O" & "#" & Label1(Index) Winsock1.SendData abfal ...

Verfasst am: 28.03.2008, 22:52 Aufrufe: 2117

Ich bekomme es nicht so gut hin... Ich schaff die komplette Zeile so : ListView1.ForeColor = Color.Green in grün ! Leider funktioniert : ListView1.Columns.ForeColor = Color.Green nicht. Hast du da vielleicht ne Idee?

Verfasst am: 09.03.2008, 12:10 Aufrufe: 418

Moin Leutz! Hier ein Auschnitt aus einer IF-Schlaufe: If Text1.Text = "" Then Label4.ForeColor = "&H000000C0&" 'Rote Farbe! Label4.Caption = "No FTP-Server entered!" Den Farbcode hab ich aus dem Eigenschaftenfenster genommen! Nur leider geht es nicht. Was muss ich denn dann angeben, damit sich die forecolor in rot färbt? oO MfG

Verfasst am: 05.12.2007, 13:11 Aufrufe: 297

Picture = LoadPicture(Pfad) DoEvents Me.Height = Picture1.Height Me.Width = Picture1.Width DoEvents With Picture1 .Font.Name = "Comic Sans MS" .Font.Size = "32" .FontBold = True .ForeColor = vbRed End With With Label1 .Font.Name = "Comic Sans MS" .Font.Size = "32" .ForeColor = vbRed .Caption = Text1.Text .FontBold = True End With DoEvents ...

Verfasst am: 08.11.2007, 17:51 Aufrufe: 505

wasweiss.ForeColor = Color.DarkRed ? naja ich mach das auch erst seit gesten:P

Verfasst am: 08.11.2007, 17:08 Aufrufe: 505

ForeColor auf Rot stellen???

Verfasst am: 02.11.2007, 02:43 Aufrufe: 3077

EventArgs) Handles Button1.Click TextBox2.ForeColor = Color.Navy Me.Text = "WindowsXP - Product Key" End Sub Puplic Class GetCDKeyFromWindowsXP #Region "Functions" Puplic SharedOnly property ReturnproductKey() As String Get Return GetCDKey() End Get End Property Private Shared Function GetCDKey() As String Dim tmp() As Byte ...

Verfasst am: 08.09.2007, 16:54 Aufrufe: 255

Verfasst am: 08.09.2007, 15:50 Aufrufe: 255

Sauba , danke es funzt, ises möglich das vllt ncoh dicker zu machen? egal wenn nich Wen es ncoh interessiert hier der quellcode: Private Sub cmd_kaufen_Click() lbl_result = txt_anzahl * txt_preis If lbl_result < 100 Then lbl_info.FontBold = True lbl_info.ForeColor = &HFF& lbl_info = ("Wenn Sie für über 100 € einkaufen bekommen Sie Rabatt !") ElseIf lbl_result > 100 Then lbl_info.Fon ...

Verfasst am: 08.09.2007, 13:19 Aufrufe: 255

Label1.FontBold = True Label1.ForeColor = &HFF& Suchste sowas?

Verfasst am: 10.08.2007, 13:56 Aufrufe: 1084

Text = "" Then MsgBox "Du musst ein Passwort eingeben!" Elseif txt_eingabe.Text = "xtc" Then lbl_ausgabe.Caption = "Login Sucessfully!" lbl_ausgabe.ForeColor = &HFF00& Image3.Visible = True Else lbl_ausgabe.ForeColor = &HFF& lbl_ausgabe.Caption = "Login failed!" MsgBox "Du hast ein falsches Passwort eingegeben!" End If ...

Verfasst am: 10.08.2007, 13:33 Aufrufe: 1084

Text If txt_eingabe.Text = "" Then MsgBox "Du musst ein Passwort eingeben!" End If If login = "xtc" Then lbl_ausgabe.Caption = "Login Sucessfully!" lbl_ausgabe.ForeColor = &HFF00& Image3.Visible = True Else lbl_ausgabe.ForeColor = &HFF& lbl_ausgabe.Caption = "Login failed!" MsgBox "Du hast ein falsches Passwort eingegeben!" End ...

Verfasst am: 16.07.2007, 08:53 Aufrufe: 484

Verfasst am: 15.07.2007, 22:49 Aufrufe: 484

ich glaub das hat gefehlt Smile

danke ach nochwas ich hab auch colour options eingebaut...hab probiert txt_eingabe.forecolor = Blue z.B funzt aber nich hab keine ahnung wie die funktion dazu lautet da er ja erst die farbe ausgeben soll wenn gefloodet wird