ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 22.12.1999

Diese Seite wurde zuletzt aktualisiert am 22.12.1999
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

Zurück...


Anzeige

(-hg) mailto:hg_textboxcase@aboutvb.de

Wenn Sie eine TextBox benötigen, die Groß- oder nur Kleinbuchstaben darstellt, können Sie den so genannten Fensterstil der TextBox entsprechend setzen. Dann werden alle danach eingefügten Zeichen in der TextBox jeweils entweder in Groß- oder Kleinbuchstaben eingestellt. Dabei ist es egal, ob die Zeichen per Tastatur, über die Zwischenablage oder über eine Zuweisung eines Strings an die Text- bzw. SelText-Eigenschaft der TextBox eingefügt werden.

In der Funktion SetTextBoxCase wird zunächst über die API-Funktion MSDN Library - API GetWindowLongGetWindowLong mit dem Index GWL_STYLE der aktuell gesetzte Fensterstil ausgelesen. Dann wird der Fensterstil mit dem gewünschten Stil verknüpft, wobei zugleich der entgegengesetzte Stil ausmaskiert (gelöscht) wird. Wird der Funktion ein nicht zulässiger Stil oder 0 im Style-Parameter übergeben, werden beide Stile ausmaskiert. Nun wird mit der API-Funktion MSDN Library - API SetWindowLongSetWindowLong der geänderte Wert des Fensterstils wieder zurückgeschrieben.

Der optionale Parameter Convert ist auf True voreingestellt. Wenn Sie diesen Parameter beim Aufruf weglassen, wird der Inhalt der Text-Eigenschaft der TextBox entsprechend dem neuen Stil konvertiert.

Private Declare Function GetWindowLong Lib "user32" _
 Alias "GetWindowLongA" (ByVal hwnd As Long, _
 ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
 Alias "SetWindowLongA" (ByVal hwnd As Long, _
 ByVal nIndex As Long, ByVal dwNewLong As Any) As Long

Public Enum tbCaseStyleConstants
  tbUCase = &H8&
  tbLCase = &H10&
End Enum

Public Sub SetTextBoxCase(TextBox As TextBox, _
 ByVal Style As tbCaseStyleConstants, _
 Optional ByVal Convert As Boolean = True)

  Dim nWindowLong As Long
  Dim nText As String
  
  Const GWL_STYLE = -16

  With TextBox
  nWindowLong = GetWindowLong(.hwnd, GWL_STYLE)
  Select Case Style
    Case tbUCase
    nWindowLong = (nWindowLong And Not tbLCase) Or tbUCase
    Case tbLCase
    nWindowLong = (nWindowLong And Not tbUCase) Or tbLCase
    Case Else
    nWindowLong = nWindowLong And Not (tbUCase Or tbLCase)
    Convert = False
  End Select
  SetWindowLong .hwnd, GWL_STYLE, nWindowLong
  If Convert Then
    nText = .Text
    .Text = ""
    .Text = nText
  End If
  End With
End Sub

Die Funktion SetTextBoxCase sorgt dafür, dass eingegebene Zeichen automatisch in Groß- oder Kleinbuchstaben umgewandelt werden


Modul modTextBoxCase (modTextBoxCase.bas - ca. 1,3 KB)






Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer