vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 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
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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Buchstabe in Zahl umwandeln78Hank-1522.06.24 12:16
Re: Buchstabe in Zahl umwandeln40ModeratorDieter22.06.24 13:24
Re: Buchstabe in Zahl umwandeln45Hank-1522.06.24 13:48
Re: Buchstabe in Zahl umwandeln39ModeratorDieter22.06.24 13:51
Re: Buchstabe in Zahl umwandeln34Hank-1522.06.24 14:50

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