vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Buchstabe in Zahl umwandeln 
Autor: Hank-15
Datum: 22.06.24 12:16

Hallöle

ich hab ein Programm und kann dort vom Namen den ersten Buchstaben abtrennen z.B. Kevin das K soweit so gut

So das im Grunde das Label LblABC.Caption = "K" angeklickt werden soll, nur wie
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Buchstabe in Zahl umwandeln 
Autor: ModeratorDieter (Moderator)
Datum: 22.06.24 13:24

Ich verstehe mal wieder nicht, worauf du genau hinaus willst, bzw. was genau die Problemstellung ist.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Buchstabe in Zahl umwandeln 
Autor: Hank-15
Datum: 22.06.24 13:48

aaaaaaalso ein Label mit dem Text z.B. Kevin das klick ich an und so wird der erste Buchstabe das K abgetrennt und mittels diesem K soll das LblABC.Caption = "K" angeklickt werden. Bzw der Click ausgeführt werden.

Private Sub LblLetztName_Click(Index As Integer)
 TxtLetztName.Text = Left$(LblLetztName(Index).Caption, 1)   'K wird von Kevin 
 ' abgetrennt
End Sub
Private Sub LblABC_Click(Index As Integer)     'Das K sollte dann das hier 
' ausführen
 FileBilderKlein.Path = App.Path & "\Pictures\Small\" & smb & "\" & LblABC( _
   Index).Caption
 For llx = 1 To PicKlein.UBound
  Unload PicKlein(llx): Unload LblName(llx)
 Next
 For llx = 0 To FileBilderKlein.ListCount - 1
  If llx > 0 Then Load PicKlein(llx)
  With PicKlein(llx)
      .Left = PicKlein(0).Left + (.Width + 50) * (llx Mod 15): .Top = PicKlein( _
        0).Top: .Visible = True
       FileBilderKlein.ListIndex = llx
      .Picture = LoadPicture(FileBilderKlein.Path & "\" & _
        FileBilderKlein.FileName)
  End With
  If llx > 0 Then Load LblName(llx)
  With LblName(llx)
      .Left = LblName(0).Left + (.Width + 50) * (llx Mod 15): .Top = LblName( _
        0).Top: .Visible = True
       jp = FileBilderKlein.List(llx)
      .Caption = Mid(jp, 1, Len(jp) - 4)
  End With
 Next
End Sub
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Buchstabe in Zahl umwandeln 
Autor: ModeratorDieter (Moderator)
Datum: 22.06.24 13:51

Also ich gehe davon aus, dass du ein Steuerelementfeld "LblABC" hast - und zwar mit Index 0 bis 25 - korrekt?
0 = A und 25 = Z

K wäre demnach also 11

Dim Index As Integer
 
Index = Asc(txtLetztName.Text) - 65
LblABC_Click Index

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Buchstabe in Zahl umwandeln 
Autor: Hank-15
Datum: 22.06.24 14:50

Ja voll korrekt und daaaanke so meint ich das 😀
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel