Visual Basic Forum

Verfasst am: 03.02.2012, 09:54 Aufrufe: 18

Hallo ! Wie kann ich checken, ob ein listview item angeklickt ist ? mfg

Verfasst am: 19.10.2011, 09:48 Aufrufe: 335

... 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 As Integer = group.channels.Item ...

Verfasst am: 17.03.2011, 12:03 Aufrufe: 690

BackgroundWorker Die backgroundworker sollen erstellt und gestartet werden, indem man auf einen Button klickt: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Job As ListBox workeractive = True For Each Job In Jobarray Dim workcount As Integer = Job.Items.Item(1) If Job.Items.It ...

Verfasst am: 15.02.2011, 14:24 Aufrufe: 859

EnableEvents = True 'Dokument geladen? If (noDocOpened) Then MessageBox.Show("Ein Etikett muss geladen sein!") Exit Sub End If 'Variable im Label füllen: 'CodesoftApplication.Documents.Application.ActiveDocument.Variables.Item(1).Name = "Zaehler0" 'CodesoftApplication.Documents.Application.ActiveDocument.Variables. ...

Verfasst am: 04.02.2011, 19:12 Aufrufe: 926

Meine aktuelle Problemstellung: Ich habe mehrere ComboBoxen, mit denen ich jeweils folgendes machen möchte: - Sie mit einer Liste von Wörtern (den Bezeichnungen für die Fertigkeiten) füllen - Festlegen, daß beim Ändern des "SelectedItem" eben dieses ausgewählte Item einem vorher definierten Array zugewiesen wird Diese beiden Dinge bekomme ich mittlerweile schon hin, nur möchte ich sie ungern für ...

Verfasst am: 04.02.2011, 10:02 Aufrufe: 417

Verfasst am: 03.02.2011, 17:53 Aufrufe: 399

b. "Hallo" angezeit Trage ich nun in das dazugehörige Anzahlfeld 5 ein, steht in der Listbox "Hallo x5" Folgender Code: If IsNumeric(TextBox2.Text) Then ListBox1.Items.Item(0) = ("Hallo x" & TextBox2.Text) Nun zu dem Problem: Ich habe ca. 15 Checkboxen und dazugehörige Anzahlfelder und jeder Textbox eine Zeile in der Listbox zugewiesen, sprich bei Textbox 3 sieht es so aus: If ...

Verfasst am: 14.12.2010, 12:57 Aufrufe: 304

Hallo Leute, ich möchte in der Inbox eines Postfachs (nicht mein eigenes), bestimmte Mails nach Betreff und dem Status "ungelsesen" filtern. Folgenden Code habe ich schon: Private Sub ThisApplication_NewMail() Dim filter As String = "EMC "Dim OLApp As New Outlook.Application Dim objNS As Outlook.NameSpaceDim MapiFolder As Outlook.MAPIFolder Dim mailItem As Outlook ...

Verfasst am: 03.10.2010, 12:51 Aufrufe: 492

CommandText = "SELECT `By` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5" reader = CMD.ExecuteReader news.Clear() Do While reader.Read news.Add(reader("By").ToString) nh1.Text = news.Item(0) nh2.Text = news.Item(1) nh3.Text = news.Item(2) ...

Verfasst am: 31.05.2010, 12:02 Aufrufe: 671

Hallo community, nach über 5 Stunden verzweifelter Suche habe ich mich jetzt dazu entschlossen mein Problem mal in ein Forum zu setzen. Mein Vorhaben: In einem Form sind 4 ComboBoxen mit je 4 items (Indizes 0 bis 3), wo der Anwender angeben soll, welche Gliedmaßen ihm amputiert werden (für die Berechnung des BMI). In meiner Datenbank stickman_db.accdb (Acsess 2007 Datenbankdatei) gibt es die Felder ID, Arm1 ...

Verfasst am: 19.03.2010, 18:45 Aufrufe: 966

0;" & _ "Data Source=C:\Probe\Dat\Probe.mdb" cmd.Connection = con Try Auslesen = Split(ListBox1.SelectedItem.ToString, "-", -1) 'Split (Ausdruck,Trennzeichen,Anzahl) Anzahl -1 Gibt alle Werte zurück Kundenbox_Label_KdNR.Text = Auslesen(0) 'Belegt die Labelbox mit dem ersten Teil der gesplitteten ListBox Zeile ...

Verfasst am: 15.12.2009, 02:32 Aufrufe: 676

hallo ich wollte aber nicht vergleichen ob in der den listboxen das selbe item makiert ist, sondern je nach dem welche der items in den verschiedenen listboxen stehen eine individuelle rechnung haben. ich hab es jetz so gelöst: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ListBox1.SelectedItem = "Item1" And ListBox2.SelectedIt ...

Verfasst am: 14.12.2009, 22:07 Aufrufe: 676

wenn Dim inhalt_listbox1 as string = ListBox1.Items.Item(0).ToString Dim inhalt_listbox2 as string = ListBox2.Items.Item(0).ToString Dim inhalt_listbox3 as string = ListBox3.Items.Item(0).ToString Wir fangen mit dem ersten Item an (darum oben (0) ) ! so, jetzt steht z.B. in der variable "inhalt_listbox1" der erste Wert in der 1. Listbox und so weiter ... Nun machen wir mit ...

Verfasst am: 28.09.2009, 17:03 Aufrufe: 834

txt") i = 0 Do While i < UBound(daten) ' dataarray(i) <> "" merkerarray = Split(daten(i), ";") 'Globale nicht kopieren bedingungen If UBound(merkerarray) < 7 Then GoTo weiter NewRow = Table1.NewRow NewRow.Item("Kundennummer") = merkerarray(0) Ne ...

Verfasst am: 13.06.2009, 16:06 Aufrufe: 1553

Das Programm macht genau das was du ihm sagst, was übrigens jedes Programm zu jeder Zeit tut. Nur manchmal wissen wir nicht, was wir da eigentlich sagen. Das Array SubItmes() ist wie folgt aufgebaut: Slot 0: Item unter der 1. Column, in dem Fall Tag. Slot 1: Item unter der 2. Column, in dem Fall Stunden. Slot 2: Item unter der 3. Column, in dem Fall Kommentar. Wenn du dem Programm also sagst "ListView1.

Verfasst am: 13.06.2009, 12:56 Aufrufe: 1553

Add("Stunden") .Add("Kommentar", 202) End With Nun lasse ich in der Spalte "Tag" die 31 Tage eines Monats zur Laufzeit generieren: For Counter As Integer = 0 To 30 With ListView1.Items With .Add(Counter + 1 & ".") End With End With Next Counter Im Anschluß lasse ich noch de ...

Verfasst am: 08.03.2009, 21:24 Aufrufe: 793

Verfasst am: 02.03.2009, 00:21 Aufrufe: 2238

ManagementClass Dim mo As ManagementObject mc = New ManagementClass("Win32_NetworkAdapterConfiguration") Dim moc As ManagementObjectCollection = mc.GetInstances() Dim MAC As String For Each mo In moc If CBool(mo.Item("IPEnabled")) = True Then MAC = mo.Item("MacAddress").To ...

Verfasst am: 25.09.2008, 16:46 Aufrufe: 624

(chilliboy999;8862)Ne in der Form_Load steht:Visual Basic: Und wo is nun das Problem?Wenn du willst das ein Item geaddet wird benutz Combo1.Additem "xx"

Verfasst am: 25.09.2008, 15:45 Aufrufe: 624

Verfasst am: 24.09.2008, 12:04 Aufrufe: 3865

Spieleprogrammierung mit XNA - Teil 2Willkommen zum zweiten Teil der XNA Tutorialreihe.In diesem Teil möchte ich euch die Grundkenntnisse von XNA zeigen.Hier werdet ihr die XNA Variablentypen und die FUnktionen das erste mal kennenlernen.Also fangen wir mit Schritt 1 an.2.1 - Import der NamespacesDamit auch alle Funtkionen zur Verfügung stehen müsst ihr zuerst einmal die Namespacesimportieren. Schreibt daher nach gan ...

Verfasst am: 06.09.2008, 22:58 Aufrufe: 452

Das kann so auch gar nicht gehen, du versuchst in einer Liste einen String zu suchen. Das geht Typtechnisch gar nicht. Du musst schon jedes Item der Liste durchgehen und prüfen ob es dein Suchwort ist.

Verfasst am: 01.09.2008, 16:08 Aufrufe: 819

Mhh ich versuchs mal so zu erklären:Meine listview sieht wie folgend aus:ABCDNun soll ein neues Item dazukommen. Nennen wir es mal B2, sodass das ganze dann so aussieht:ABB2CDBei deinem Vorschlag würde ich die beiden Items austauschen..

Verfasst am: 01.09.2008, 15:03 Aufrufe: 819

Verfasst am: 01.09.2008, 14:57 Aufrufe: 819

Hi,ich möchte in meinem Projekt gerne Items innerhalb einer Listview verschieben können.Dh. ich hab angenommen ein Item das den Index 5 hat und möchte dieses Item nun an 2ter Stelle verschieben (also zu Index 2).Ich habe schon diesen Tipp versucht nur bekomme ich beim anwenden in meinem Projekt immer ein "Typen unverträglich":http://www.aboutvb.de/khw/artikel/khwlvwli...emstoremove.htmIch brauche also einen anderen W ...

Verfasst am: 25.08.2008, 07:00 Aufrufe: 1302

Verfasst am: 21.08.2008, 16:49 Aufrufe: 1302

Verfasst am: 25.07.2008, 17:47 Aufrufe: 1075

Verfasst am: 20.07.2008, 09:15 Aufrufe: 2985

Dann machen deine beiden Userbars in deiner Sig überhaupt keinen Sinn -.-Geh halt mal mit Logik an die Sache ran. Das es keine Funktion save_listview() geben wird, ist dir wohl klar. Also muss man sich so eine selber machen. Ich hab am Anfan auch über nen Monat daran gesessen und wusste nicht wo ich anfange sollte. Fang halt an und speicher dir eine komplette Zeile in einen String, jedes Feld getrennt von Platzhalter ...

Verfasst am: 17.07.2008, 18:17 Aufrufe: 1118

Verfasst am: 17.07.2008, 03:39 Aufrufe: 828

Verfasst am: 15.07.2008, 14:40 Aufrufe: 828

Verfasst am: 20.06.2008, 20:03 Aufrufe: 1394

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: 20.06.2008, 15:54 Aufrufe: 1394

Also bitte, noch nie ne Schleife gesehen? Surprised

Guck dir halt mal Listview.Items.item an, bzw .Length -1 und wie man ne Schleife vorzeitig beendet und gut ist. Würmchen hat doch schon den Code gepostet. Musst das oben einbauen. Was heißt hier "nur .NET darf antworten" ? Daraus schließe ich, dass du einen fertigen Source haben willst:mad: Nene, so gehts net. Dann lernst du ja garnichts. Kannst ja auch nicht die Arbe ...

Verfasst am: 19.06.2008, 17:53 Aufrufe: 1394

kA wie Listview in .NET funktioniert, doch überprüfe das doch einfach mit ner For schleifeVB Pseudo Code:For i = 1 to ListView1.Listitems.CountIf ListView1.ListItems.Item(i) = varNickname ThenMsgBox "Der Name wird bereits benutzt!",vbError,"Name bereits in Benutzung"Else'blablaEndifwenn die Spalte "Name" ein SubItem ist dann haltIf ListView1.ListItems.Item(i).Subitem(1) etc.

Verfasst am: 10.06.2008, 14:42 Aufrufe: 458

Alsooo =)1. die lblWord.Caption soll Haus annehmen.Dies kann ich ja noch mittels frmMain.Listview1.ListItems.Item(1) machen.Nun, der User gibt nun bei der Eingabetextbox das englische Wort ein, house.Nun wird verglichen, ob das Wort richtig oder falsch ist --> Ist ja hier eigentlich irrelevant.Jedenfalls wird, nachdem auf den Button gedrückt wird, (2.) das nächste Wort in der Listview angezeigt --> Sprich Maus (3.)Do ...

Verfasst am: 06.06.2008, 15:40 Aufrufe: 859

Auf ein Element in der Listbox greifst du so zu MsgBox(ListBox1.Items.Item(Index)) Also du hast ein .item vergessen;)

Verfasst am: 31.05.2008, 15:11 Aufrufe: 910

Verfasst am: 02.05.2008, 11:18 Aufrufe: 570

Verfasst am: 01.05.2008, 13:20 Aufrufe: 1110

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, 18:08 Aufrufe: 540

so ich habe es geschaft das sie sich in die gleiche zeile eintragen nun habe ich aber noch das problem das ich nicht weiß wie ich zeilen löschen soll , hier mein code dafür For k = 0 To UBound(laufinfo) With lv.ListItems.Add If InStrB(1, laufinfo(k), ":") <> 0 Then .Text = laufinfo(k) .SubItems(1) = "" .SubItems ...

Verfasst am: 23.04.2008, 13:53 Aufrufe: 1193

Ah, hab nochmal genau hingeguckt! Jetzt geht es.. Okay, wenn ich jetzt Doppelklick auf ein Item in LV mache, kann er ja nicht weiter geht, weil es ja nur z.B. "Programme" heißt. Dafür speicher ich einfach den Pfad, der davor war in eine variable und pack sie, wenn ich die sachen an den server sende, in ein variable zusammen! So kann man das lösen oder? Ich teste einfach mal aus.. Danke für ...

Verfasst am: 22.04.2008, 21:45 Aufrufe: 424

Ich glaube es ist garnicht möglich ein Item aus einer Listbox zu einzufärben. Also nehme eine Listview. ist nicht viel schwieriger als eine Listbox und du hast viel mehr möglichkeiten z.B. Icons und co.

Verfasst am: 17.04.2008, 21:17 Aufrufe: 448

Verfasst am: 17.04.2008, 16:01 Aufrufe: 448

Verfasst am: 17.04.2008, 13:30 Aufrufe: 731

ich habe das ganze so gemacht XD Private Sub lv2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Dim oItem As ListItem With lv2 Set oItem = .HitTest(X, Y) If Not oItem Is Nothing Then Set .SelectedItem = .ListItems(oItem.index) Dim index As Integer Dim i As Integer ...

Verfasst am: 17.04.2008, 13:19 Aufrufe: 731

Okay super! Die Funktion an sich habe ich ja verstanden. Wenn ich aber jetzt hier z.B. Private Sub ListView2_DblClick() If ListView2.SelectedItem = "..." Then GetPreviousDirectory ' <<--- Funktion!!!! Else Dir1.Path = ListView2.SelectedItem Text1.Text = ListView2.SelectedItem ListView2.ListItems.Clear Set list = ListView2.ListItems.Add(, , "...") Fo ...

Verfasst am: 11.04.2008, 15:59 Aufrufe: 378

Abgesehen davon, dass mir deine Lösung mit der Variable "Indexeditieren" ziemlich buggy vorkommt, wird das Problem da liegen, dass einfach nach dem Löschen eines Items wahrscheinlich kein Item mehr selected ist. Und da bekommst du bei SelectedItem einen Fehler. Wäre gut, wenn du noch kurz erklären könntest was du da bitte mit "Indexeditieren" machst. Indexeditieren ist in meinen Augen immer ...

Verfasst am: 09.04.2008, 16:04 Aufrufe: 490

Mit tsklist = List1.Text kannst du nicht den Inhalt der Listbox abfragen, das sollte irgendwie mit list1.items(i).text oder so gehen. Du musst also per Schleife durch die Listbox jedes Item abfragen und an einen String anhängen, den kannst du dann verschicken. Am Ende splittest du den String wieder und fügst ihn wieder der Listbox hinzu

Verfasst am: 30.03.2008, 17:26 Aufrufe: 589

Hallo, ich möchte den Ordnerinhalt welcher durch eine Variable (String) bezogen wird in einer ListView anzeigen lassen. Leider klappt das ganze noch nicht hier mein Code: Die Funktion: Public Function listadd(ByVal spalte1 As String) Dim Item As New ListViewItem With Item .Text = spalte1 .Name = spalte1 End With My.Forms.Form1.ListView1.