Visual Basic Forum

Verfasst am: 05.09.2011, 10:15 Aufrufe: 2714

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

Verfasst am: 25.11.2009, 01:00 Aufrufe: 2239

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: 15.06.2009, 12:16 Aufrufe: 9611

Add , , „Hallo Welt“Dieser Text wird in der ersten Spalte eingetragen. Wenn wir die anderen Spalten nutzen wollen müssen wir das anders machen.Hier ein Beispiel für die zweite Spalte.lv.ListItems(Index).SubItems(1) = "Hallo Welt"So. Jetzt wird euch erstmal die erste Klammer mit Index drin auffallen. Jeder Eintrag, bzw. jede Zeile bekommt eine Nummer zugewiesen. Einen Index.Das heißt also wir k ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2714

Dim list as Listitem For i = 1 To 10 Set List = lv.ListItems.Add(, , buffer(i)) With List .SubItems(1) = "Spalte 2" .SubItems(2) = "Spalte 3" End With Next i Set list = nothing2. Einen bestimmten Eintrag finden.Jetzt wollen wir mal nach einen b ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4402

RecordCount 'Wir ermitteln wieviele Datensätze unsere DB hat. For i = 1 To dbcount With lv.ListItems.Add .Text = Tb!mail .SubItems(1) = Tb!Password If Not Tb.EOF then Tb.MoveNext End With Next iSo. Das war es wiedermal.Ich hoffe ich konnte euch das programmieren mit Datenbanken etwas näher bringen ...

Verfasst am: 13.06.2009, 17:06 Aufrufe: 1619

Column, in dem Fall Kommentar. Wenn du dem Programm also sagst "ListView1.Items(Counter).SubItems(0).Text", wird es wohl oder übel den Tag zurückgeben (das paradoxerweise gleichzeitig Item und SubItem ist, also sich selbst untergeordnet ist). Wenn du also die Stunden zurückgegeben haben willst, musst du das zweite SubItem (also Slot 1) aufrufen. Auch wenn ich gerne zugebe, dass das ganze etwas seltsam ...

Verfasst am: 13.06.2009, 13:56 Aufrufe: 1619

Selected = True Then Exit For End If Next Counter Habe ich den Wert welcher selektiert ist gefunden so verlasse ich die Schleife und übergebe den Wert "Counter" welcher noch aktuell den selektierten Item Wert besitzt die SubItem erstellung weiter: With frmStart.ListView1.Items(Counter) .SubItems.Add(TextBox1.Text) ' Stunden Eintrag . ...

Verfasst am: 24.04.2009, 20:43 Aufrufe: 454

Nun möchte ich dem server eine MsgBox übermitteln, was jedoc nicht klappen kann, da sich kein Listviewitem in meinem Controlpanel befindet. Hier der Code mitdem ich übermitteln will: Winsock1(ListView1.SelectedItem.SubItems(1)).SendData "UserName" "ListView1.SelectedItem", wie kann ich das machen das das aktuelle fenster den selektieren user in der SIN übernimmt? oder wie mus ...

Verfasst am: 09.03.2009, 18:25 Aufrufe: 854

das geht auch in VB6 so. ein imagelist mit den icons füllen und beim adden ins listview die ID des icons angeben: list.listitems.add 0, key, text, id_des_icons die imagelist muss an das listview gebunden sein. listview->eigenschaften->abbildungslisten du kannst auch icons für die subitems verwenden: http://www.activevb.de/tipps/vb6tipps/tipp0385.html edit: lol ich seh grad du meinst das tabcontro ...

Verfasst am: 21.09.2008, 12:34 Aufrufe: 1279

Verfasst am: 13.09.2008, 11:38 Aufrufe: 1345

SubItems(1) = Trash(1) End With Next i Wend Close FEnd Sub[/code]Und in ein Externes Modul schreibst du:Visual Basic: [code]Public Function FileLineCount(ByVal sFile As String) As Long Dim F As Integer Dim sLine As String Dim nCount As Long ' Datei sequentiell öffnen und zeilenweise auslesen F = FreeFile Open sFile For Input As #F While Not EOF(F) ...

Verfasst am: 12.09.2008, 22:31 Aufrufe: 1345

Verfasst am: 12.09.2008, 16:15 Aufrufe: 1365

Verfasst am: 12.09.2008, 15:45 Aufrufe: 1365

Ich versteh dich nicht ganz ZiG, sorry:oIch müsste den angewählten Text in der ComboBox irgendwie hier mit "Listview" austauschen:With Listview.items.add(Titel) .SubItems.Add(Beschreibung) .SubItems.Add(Link)End WithDie Items in der ComboBox sind genau so geschrieben wie die Listviews heissen.

Verfasst am: 11.09.2008, 18:45 Aufrufe: 1345

Verfasst am: 09.09.2008, 11:33 Aufrufe: 1279

Hiich benutze diesen Code um meine Listview zu Speichern.Visual Basic: Wie kann ich jetzt die txtfile wieder Öffnen und einfügen?thx schonmal

Verfasst am: 02.09.2008, 14:40 Aufrufe: 807

Verfasst am: 02.09.2008, 14:15 Aufrufe: 807

Verfasst am: 22.08.2008, 11:57 Aufrufe: 1439

Nein, ich rede von DropDownItems und nicht von normalen Items.DropDownItems sind die SubItems von den normalen Items.

Verfasst am: 19.08.2008, 18:44 Aufrufe: 536

With ListView1.ListItems.Add.Text = "....".SubItems(1) = "......".SubItems(2) = "......"end withwie kann ich da mein icon reinsetzen vorne, normal gehts ja so ListView1.Listitems.Add , , "lol" ,, "miniicon"so habs geschafft, danke trotzdem

Verfasst am: 25.07.2008, 18:47 Aufrufe: 1147

Verfasst am: 20.07.2008, 10:15 Aufrufe: 3208

Fang halt an und speicher dir eine komplette Zeile in einen String, jedes Feld getrennt von Platzhaltern, an denen du die einzelnen Felder trennst (zb ° oder | ). Wenn du eine Zeile hast, kannst du die dann in die txt schreiben, und fängst mit der nächsten Zeile an.Alles was du brauchst: Listview.item.item(x).text, Listview.item.item(x).subitems.item(y).textMehr nicht, ausser vllt zwei ineinander gekapselter Schleife ...

Verfasst am: 16.07.2008, 12:39 Aufrufe: 869

Verfasst am: 15.07.2008, 16:06 Aufrufe: 869

Verfasst am: 15.07.2008, 16:01 Aufrufe: 869

Verfasst am: 15.07.2008, 15:14 Aufrufe: 869

with listview1.listitems.add .Text = blabla .Subitems(1) = blabla2end with

Verfasst am: 15.07.2008, 15:10 Aufrufe: 869

Verfasst am: 10.07.2008, 20:47 Aufrufe: 383

Verfasst am: 20.06.2008, 21:03 Aufrufe: 1489

Listview.items.item(i).text litsview.items.item(i).subitems.item(x).text .length-1 Das war jetzt aber ein Wink mit dem Zaunpfal Very Happy

mehr gibts jetzt nicht mehr. Cool

Verfasst am: 01.06.2008, 20:03 Aufrufe: 422

Verfasst am: 01.06.2008, 17:42 Aufrufe: 422

Verfasst am: 31.05.2008, 16:11 Aufrufe: 961

Verfasst am: 04.05.2008, 19:40 Aufrufe: 921

Verfasst am: 01.05.2008, 15:08 Aufrufe: 3188

Beschreibung:Eine Liste aller laufender Prozesse lässt sich wie folgt ermitteln und bspw. in einem ListView anzeigen.Platzieren Sie auf die Form ein ListView-Control und einen CommandButton (Button1) und fügen folgenden Code in den Codeteil der Form ein:Funktion:Visual Basic: Erweiterung:Visual Basic: Quelle: vbarchiv.net

Verfasst am: 01.05.2008, 14:20 Aufrufe: 1174

Beschreibung:Dieses Snippet liest den Produkt-Installationsschlüssel (Schlüssel auf dem Echtheitszertifikat) und die Seriennummer aus.Der Schlüssel wird als Listview Item zurückgegeben und kann somit direkt in ein Listview-Steuerelement eingetragen werden.Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 24.04.2008, 19:08 Aufrufe: 575

Verfasst am: 24.04.2008, 13:47 Aufrufe: 575

Add For x = i To i + 3 If InStrB("", "=") <> 0 Then .Text = array(i) ElseIf InStrB("", "/") <> 0 Then .Subitems(1) = array(i) ElseIf InStrB("", "]") <> 0 Then .Subitems(2) = array(i) ElseIf InStrB("", "[" ...

Verfasst am: 24.04.2008, 13:11 Aufrufe: 575

For i = 0 to ... with lv.listitems.add .Text = array(i) .Subitems(1) = array(i+1) .Subitems(2) = array(i+2) .Subitems(3) = array(i+3) end with i = i + 3 next i

Verfasst am: 23.04.2008, 19:10 Aufrufe: 575

For i = 0 to ... with lv.listitems.add if InstrB(..., "=") <> 0 then .Text = ... elseif InStrB(..., "/") <> 0 then .Subitems(1) = ... elseif InStrB(..., "]") <> 0 then .Subitems(2) = ... elseif InStrB(..., "[") <> 0 then .Subitems(3) = ... end if end with ...

Verfasst am: 11.04.2008, 17:10 Aufrufe: 1450

Add(strName) ltvAccounts.Items(ltvAccounts.Items.Count - 1).SubItems.Add(strPW) i += 1 Loop objReader.Close() objStream.Close() Catch except As Exception Exit Sub End Try End Sub Private Sub frmMain_Disposed(ByVal sender As Object, ByVal e As System.EventArgs ...

Verfasst am: 11.04.2008, 15:22 Aufrufe: 392

ListItems.Remove (Indexeditieren) Indexeditieren = Indexeditieren + 1 [b]Indexeditieren = lv.SelectedItem.Index[/b] Set list = lv.ListItems.Add(Indexeditieren, , txt_name.Text) With list .SubItems(1) = txt_passwort.Text .SubItems(2) = txt_beschreibung.Text End With cmd_editieren.Visible = False cmd_einfügen.Visible = True End Sub vllt. könnt ihr mir j ...

Verfasst am: 07.04.2008, 20:17 Aufrufe: 464

du kannst durch subitems(x) & listsubitems(x) auf das subitem zugreifen. mit listview1.listitems.subitems(x) kannst du dem nur subitem nur einen wert geben bei listsubitems kannt du die eigenschaften des entsprechenden setzen und einen wert setzen

Verfasst am: 07.04.2008, 19:19 Aufrufe: 464

moin könnt ihr mir mal schnellsagen, ob es einen unterschied zwischen lisubitems und subitems gibt mfg booehser enkel

Verfasst am: 02.04.2008, 11:22 Aufrufe: 412

php?t=1813&highlight=reverse ) gut verstanden und eingebaut! =) Wenn ich auf Verbinden drücke, steht folgendes im Code: If socket3.State = sckConnected Then Exit Sub Else If Lv.ListItems.Count <> 0 Then If socket2(Lv.SelectedItem.SubItems(2)).State = sckConnected Then socket3.Close socket3.LocalPort = 56 ...

Verfasst am: 29.03.2008, 21:29 Aufrufe: 831

"ListView.Listitems.Count" gibt dir zurück wieviele Einträge im ListView sind. Eine Schleife zum auslesen sehe so aus Beispiel: Dim i as long For i = 1 to ListView.Listitems.Count 'ListView.Listitems(i).Text bzw. evt. Subitems(...) wären also dann die einzelnen Zeilen next i

Verfasst am: 29.03.2008, 21:09 Aufrufe: 831

Hmm, ich kenne Shark nicht so genau um es ganz genau verstanden zu haben. Also. Statt den Textboxen steht der Port an dem das winsock lauschen soll in einem ListView. Du mußt also nur den Port aus dem ListView auslesen und das Winsock auf listen stellen. Sollte doch kein Prob sein oder? Winsock1(2).LocalPort = CInt(ListView1.Listitems(1).Subitems(1)) Winsock1(2).List ...

Verfasst am: 28.03.2008, 22:35 Aufrufe: 2117

Columns.Add("Passwort") ListView1.Columns.Add("Check Status") und das die einträge: Dim AccountAdding As New ListViewItem("testuser@googlemail.com") AccountAdding.SubItems.Add("pass") AccountAdding.SubItems.Add("Non Checked") Jetzt möchte ich im Prinzip den Account Status also (..)AccountAdd ...

Verfasst am: 16.03.2008, 20:52 Aufrufe: 496

StreamReader(("C:\1\2.txt")) Dim streinzeln() As String = sr.ReadToEnd.Split("+") Dim lvitem As New ListViewItem lvitem = ListView.Items.Add(streinzeln(0)) lvitem.SubItems.Add(streinzeln(1)) lvitem.SubItems.Add(streinzeln(2))