| | |
 | Lenovo erstellt zum dritten Mal in Folge die achte jährliche Liste der besten Arbeitsplätze für Innovatoren in den Bereichen KI, Automatisierung und Machine Learning, eine Pressemitteilung
|
|
Autor
|
Thema: In Listbox ein Kontrollkästchen markieren (1504 mal gelesen)
|
Heiko76 Mitglied Applikationsingenieur
  
 Beiträge: 589 Registriert: 21.03.2002
|
erstellt am: 25. Jul. 2005 11:06 <-- editieren / zitieren --> Unities abgeben:         
Hallo zusammen, ich habe eine Listbox mit Additem befüllt. Jetzt will ich beim Aufrufen des Programms je nach User ein Eintrag per Kontrollkästchen (Checkbox) in der Listbox markieren. Wie geht das??? ------------------ cu Heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BJ Mitglied PLM System Administrator
 
 Beiträge: 488 Registriert: 20.12.2002
|
erstellt am: 26. Jul. 2005 11:28 <-- editieren / zitieren --> Unities abgeben:          Nur für Heiko76
|
Heiko76 Mitglied Applikationsingenieur
  
 Beiträge: 589 Registriert: 21.03.2002 Win10 64bit Autodesk Produkte 2018 VB.net / Powershell
|
erstellt am: 26. Jul. 2005 11:35 <-- editieren / zitieren --> Unities abgeben:         
Hallo, fast. In der Listbox stehen verschiedene Abteilungen und die soll dann an Hand des angemeldeten Users gewählt werden. D.H. wenn ich das Programm starte, soll der Hacken vor der Abteilung Admin sein. ------------------ cu Heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RENI Mitglied Entwickler

 Beiträge: 98 Registriert: 26.04.2002
|
erstellt am: 26. Jul. 2005 11:36 <-- editieren / zitieren --> Unities abgeben:          Nur für Heiko76
Hallo Heiko76, meinst Du es so, wie im Beispiel? Gruß RENI Private Sub Command1_Click() 'Ermitteln des Usernamens Dim strBuf As String Dim retval As String strBuf = Space$(255) retval = GetUserName(strBuf, Len(strBuf)) Benutzername = Left$(strBuf, Len(Trim$(strBuf)) - 1) For i = 0 To 9 List1.AddItem ("List" & (i + 1)) Next i For i = 0 To List1.ListCount - 1 If List1.List(i) = "List5" And Benutzername = "Benutzer" Then List1.Selected(i) = True End If Next i End Sub 'Modul Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BJ Mitglied PLM System Administrator
 
 Beiträge: 488 Registriert: 20.12.2002
|
erstellt am: 26. Jul. 2005 14:09 <-- editieren / zitieren --> Unities abgeben:          Nur für Heiko76
|
RENI Mitglied Entwickler

 Beiträge: 98 Registriert: 26.04.2002
|
erstellt am: 26. Jul. 2005 14:54 <-- editieren / zitieren --> Unities abgeben:          Nur für Heiko76
|
RENI Mitglied Entwickler

 Beiträge: 98 Registriert: 26.04.2002
|
erstellt am: 26. Jul. 2005 14:59 <-- editieren / zitieren --> Unities abgeben:          Nur für Heiko76
|
BJ Mitglied PLM System Administrator
 
 Beiträge: 488 Registriert: 20.12.2002
|
erstellt am: 26. Jul. 2005 15:05 <-- editieren / zitieren --> Unities abgeben:          Nur für Heiko76
|