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 17.10.1999

Diese Seite wurde zuletzt aktualisiert am 17.10.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 Beispiel-Projekts avbFormXTest2

Form frmStartLogo.frm

Option Explicit

Private mLast As ucLetter
Private mMode As Boolean
Private mSteps As Collection

Private Sub Form_MouseDown(Button As Integer, _
 Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    FormX.DragForm
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, _
 Shift As Integer, X As Single, Y As Single)
  If Button = vbRightButton Then
    Unload Me
  End If
End Sub

Private Sub Form_Load()
  Set mSteps = New Collection
  With mSteps
    .Add 2
    .Add 5
    .Add 9
    .Add 12
    .Add 1
    .Add 14
    .Add 4
    .Add 10
    .Add 0
    .Add 8
    .Add 15
    .Add 6
    .Add 13
    .Add 3
    .Add 11
    .Add 7
  End With
  With Me
    .Move (Screen.Width - .Width) \ 2, (Screen.Height - _
     .Height) \ 2
  End With
  tmr.Enabled = True
End Sub

Private Sub tmr_Timer()
  Dim i%
  Dim nAVB As Integer
  
  Static sAVB As Integer
  
  If Not (mLast Is Nothing) Then
    mLast.Active = False
  End If
  If sAVB > avb.UBound Then
    Set mLast = Nothing
    FormX.Transparent = fttInvisibleButOnTaskBar
    sAVB = 0
    For i = 0 To avb.UBound
      avb(i).Visible = False
    Next 'i
    FormX.Transparent = fttTransparentAlways
    mMode = Not mMode
  Else
    If mMode Then
      nAVB = mSteps(sAVB + 1)
    Else
      nAVB = sAVB
    End If
    With avb(nAVB)
      .Active = True
      .Visible = True
      .ZOrder 0
    End With
    Set mLast = avb(nAVB)
    sAVB = sAVB + 1
    FormX.Refresh
  End If
End Sub

UserControl ucLetter.ctl

Option Explicit

Private pActive As Boolean

Public Property Get Active() As Boolean
  Active = pActive
End Property

Public Property Let Active(ByVal New_Active As Boolean)
  pActive = New_Active
  Select Case pActive
    Case False
      chk.ForeColor = vbBlack
    Case True
      chk.ForeColor = vbRed
  End Select
End Property

Public Property Get Caption() As String
  Caption = chk.Caption
End Property

Public Property Let Caption(New_Caption As String)
  chk.Caption = New_Caption
  PropertyChanged "Caption"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  chk.Caption = PropBag.ReadProperty("Caption", "")
End Sub

Private Sub UserControl_Resize()
  Static sInProc As Boolean
  
  If sInProc Then
    Exit Sub
  Else
    sInProc = True
  End If
  UserControl.Size 30 * Screen.TwipsPerPixelX, _
   30 * Screen.TwipsPerPixelY
  sInProc = False
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "Caption", chk.Caption, ""
End Sub

Zurück zu "Forms mit Durchblick und mehr" Zurück zum Text Code des Controls FormX Code des Controls FormX
Code des Beispielprojekts 1 Code des Beispiel-Projekts avbFormXTest


Komponenten-Übersicht

Zum Seitenanfang

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

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer