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 23.09.1999

Diese Seite wurde zuletzt aktualisiert am 23.09.1999
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicAddIns 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 zur AVB-Web-Site, Kontakt und Impressum

Zurück...

Zurück...


Anzeige

Code des Test-Projekts MarqueeToolTipTest

Private Sub chkEnabled_Click()
  ucMarqueeToolTip.Enabled = CBool(chkEnabled.Value)
End Sub

Private Sub cmdExit_Click()
  Unload Me
End Sub

Private Sub txtInterval_Change()
  Static sLastText As String
  Static sInProc As Boolean
  
  If sInProc Then
    Exit Sub
  Else
    sInProc = True
  End If
  With txtInterval
    .Text = Replace(.Text, ".", "")
    If CBool(Len(.Text) = 0) Or IsNumeric(.Text) Then
      sLastText = .Text
      ucMarqueeToolTip.Interval = Val(.Text)
    Else
      Beep
      .Text = sLastText
    End If
    If Len(.Text) = 0 Then
      .Text = "0"
    End If
    If .Text = "0" Then
      .SelStart = 0
      .SelLength = 1
    End If
  End With
  sInProc = False
End Sub

Private Sub txtInterval_GotFocus()
  With txtInterval
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End Sub

Private Sub txtInterval_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack
    Case Else
      KeyAscii = 0
  End Select
End Sub

Private Sub txtShowedLength_Change()
  Static sLastText As String
  Static sInProc As Boolean
  
  If sInProc Then
    Exit Sub
  Else
    sInProc = True
  End If
  With txtShowedLength
    .Text = Replace(.Text, ".", "")
    If CBool(Len(.Text) = 0) Or IsNumeric(.Text) Then
      sLastText = .Text
      ucMarqueeToolTip.Showedlength = Val(.Text)
    Else
      Beep
      .Text = sLastText
    End If
    If Len(.Text) = 0 Then
      .Text = "0"
    End If
    If .Text = "0" Then
      .SelStart = 0
      .SelLength = 1
    End If
  End With
  sInProc = False
End Sub

Private Sub txtShowedLength_GotFocus()
  With txtShowedLength
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End Sub

Private Sub txtShowedLength_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack
    Case Else
      KeyAscii = 0
  End Select
End Sub

Private Sub txtStepWidth_Change()
  Static sLastText As String
  Static sInProc As Boolean
  
  If sInProc Then
    Exit Sub
  Else
    sInProc = True
  End If
  With txtStepWidth
    .Text = Replace(.Text, ".", "")
    If CBool(Len(.Text) = 0) Or IsNumeric(.Text) Then
      sLastText = .Text
      ucMarqueeToolTip.StepWidth = Val(.Text)
    Else
      Beep
      .Text = sLastText
    End If
    If Len(.Text) = 0 Then
      .Text = "0"
    End If
    If .Text = "0" Then
      .SelStart = 0
      .SelLength = 1
    End If
  End With
  sInProc = False
End Sub

Private Sub txtStepWidth_GotFocus()
  With txtStepWidth
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End Sub

Private Sub txtStepWidth_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack
    Case Else
      KeyAscii = 0
  End Select
End Sub

Private Sub optDirection_Click(Index As Integer)
  ucMarqueeToolTip.Direction = Index
End Sub

Private Sub txtMarqueeToolTip_Change()
  ucMarqueeToolTip.Text = txtMarqueeToolTip.Text
End Sub

Private Sub txtMarqueeToolTip_GotFocus()
  With txtMarqueeToolTip
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End Sub

Private Sub Form_Load()
  Const kTestfläche = "Testfläche"
  
  With ucMarqueeToolTip
    .Text = txtMarqueeToolTip.Text
    Set ucMarqueeToolTip.CtlToolTip = picTest
  End With
  With picTest
    .CurrentX = (.ScaleWidth - .TextWidth(kTestfläche)) \ 2
    .CurrentY = (.ScaleHeight - .TextHeight("T")) \ 2
    picTest.Print kTestfläche
  End With
End Sub

Zurück zu "Kreisverkehr im ToolTip" Zurück zum Text   


Komponenten-Übersicht

Zum Seitenanfang

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

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer

Visual Basic
ABOUT Visual Basic
Visual
Basic
Programmieren
Programmierung
Timer
ActiveX-Control
VB
VBA
Visual Basic for Applications
VBS
VBScript
Scripting
Windows
ActiveX
COM
OLE
API
Computer
PC
Microsoft Office
Microsoft
Office 97
Office 2000
Access
Word
Winword
Excel
Outlook
Addins
ASP
Active Server Pages
COMAddIns
ActiveX-Controls
OCX
UserControl
UserDocument
Komponenten