diff --git a/Forms/Form1.frm b/Forms/Form1.frm index a3895ff..23ee466 100644 --- a/Forms/Form1.frm +++ b/Forms/Form1.frm @@ -1,5 +1,5 @@ VERSION 5.00 -Begin VB.Form Form1 +Begin VB.Form FMain BorderStyle = 3 'Fester Dialog Caption = "Form1" ClientHeight = 5175 @@ -14,6 +14,107 @@ Begin VB.Form Form1 ScaleWidth = 14520 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows-Standard + Begin VB.PictureBox PnlTabPage2 + BackColor = &H80000005& + Height = 3975 + Left = 6840 + ScaleHeight = 3915 + ScaleWidth = 5955 + TabIndex = 4 + Top = 960 + Width = 6015 + Begin VB.PictureBox Picture2 + Height = 1935 + Left = 3720 + ScaleHeight = 1875 + ScaleWidth = 1995 + TabIndex = 15 + Top = 1680 + Width = 2055 + End + Begin VB.Frame Frame1 + Caption = "Frame1" + Height = 1935 + Left = 240 + TabIndex = 14 + Top = 1680 + Width = 3375 + End + Begin VB.CommandButton Command9 + Caption = "Command7" + Height = 375 + Left = 3720 + TabIndex = 13 + Top = 1200 + Width = 1455 + End + Begin VB.CommandButton Command8 + Caption = "Command7" + Height = 375 + Left = 3720 + TabIndex = 12 + Top = 720 + Width = 1455 + End + Begin VB.CommandButton Command7 + Caption = "Command7" + Height = 375 + Left = 3720 + TabIndex = 11 + Top = 240 + Width = 1455 + End + Begin VB.OptionButton Option3 + Caption = "Option1" + Height = 375 + Left = 1680 + TabIndex = 10 + Top = 1200 + Width = 1455 + End + Begin VB.OptionButton Option2 + Caption = "Option1" + Height = 375 + Left = 1680 + TabIndex = 9 + Top = 720 + Value = -1 'True + Width = 1455 + End + Begin VB.OptionButton Option1 + Caption = "Option1" + Height = 375 + Left = 1680 + TabIndex = 8 + Top = 240 + Width = 1455 + End + Begin VB.CheckBox Check3 + Caption = "Check2" + Height = 375 + Left = 240 + TabIndex = 7 + Top = 1200 + Width = 1095 + End + Begin VB.CheckBox Check2 + Caption = "Check2" + Height = 375 + Left = 240 + TabIndex = 6 + Top = 720 + Width = 1095 + End + Begin VB.CheckBox Check1 + Caption = "Check1" + Height = 375 + Left = 240 + TabIndex = 5 + Top = 240 + Value = 1 'Aktiviert + Width = 1095 + End + End Begin VB.CommandButton BtnCopy Caption = "Copy" Height = 375 @@ -121,105 +222,6 @@ Begin VB.Form Form1 Width = 1575 End End - Begin VB.PictureBox PnlTabPage2 - BackColor = &H80000005& - Height = 3975 - Left = 6840 - ScaleHeight = 3915 - ScaleWidth = 5955 - TabIndex = 4 - Top = 960 - Width = 6015 - Begin VB.PictureBox Picture2 - Height = 1935 - Left = 3720 - ScaleHeight = 1875 - ScaleWidth = 1995 - TabIndex = 15 - Top = 1680 - Width = 2055 - End - Begin VB.Frame Frame1 - Caption = "Frame1" - Height = 1935 - Left = 240 - TabIndex = 14 - Top = 1680 - Width = 3375 - End - Begin VB.CommandButton Command9 - Caption = "Command7" - Height = 375 - Left = 3720 - TabIndex = 13 - Top = 1200 - Width = 1455 - End - Begin VB.CommandButton Command8 - Caption = "Command7" - Height = 375 - Left = 3720 - TabIndex = 12 - Top = 720 - Width = 1455 - End - Begin VB.CommandButton Command7 - Caption = "Command7" - Height = 375 - Left = 3720 - TabIndex = 11 - Top = 240 - Width = 1455 - End - Begin VB.OptionButton Option3 - Caption = "Option1" - Height = 375 - Left = 1680 - TabIndex = 10 - Top = 1200 - Width = 1455 - End - Begin VB.OptionButton Option2 - Caption = "Option1" - Height = 375 - Left = 1680 - TabIndex = 9 - Top = 720 - Width = 1455 - End - Begin VB.OptionButton Option1 - Caption = "Option1" - Height = 375 - Left = 1680 - TabIndex = 8 - Top = 240 - Width = 1455 - End - Begin VB.CheckBox Check3 - Caption = "Check2" - Height = 375 - Left = 240 - TabIndex = 7 - Top = 1200 - Width = 1095 - End - Begin VB.CheckBox Check2 - Caption = "Check2" - Height = 375 - Left = 240 - TabIndex = 6 - Top = 720 - Width = 1095 - End - Begin VB.CheckBox Check1 - Caption = "Check1" - Height = 375 - Left = 240 - TabIndex = 5 - Top = 240 - Width = 1095 - End - End Begin VB.CommandButton BtnRename Caption = "Rename" Height = 375 @@ -284,7 +286,7 @@ Begin VB.Form Form1 End End End -Attribute VB_Name = "Form1" +Attribute VB_Name = "FMain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True @@ -295,6 +297,8 @@ Attribute TabControl1.VB_VarHelpID = -1 Private Sub Form_Load() + Me.Caption = App.EXEName + Set TabControl1 = MNew.TabControl(Me, PnlTabCtrl, "TabControl1") NewTabPage TabControl1, "TabPage1", Me.PnlTabPage1 @@ -347,6 +351,10 @@ Private Sub mnuFileExit_Click() Unload Me End Sub +Private Sub mnuHelpInfo_Click() + MsgBox App.CompanyName & " " & App.EXEName & " v" & App.Major & "." & App.Minor & "." & App.Revision & vbCrLf & App.FileDescription +End Sub + Private Sub TabControl1_Paint(ByVal mIndex As Long) ' End Sub diff --git a/Modules/MApp.bas b/Modules/MApp.bas index 6958754..79fe4f9 100644 --- a/Modules/MApp.bas +++ b/Modules/MApp.bas @@ -1,9 +1,9 @@ Attribute VB_Name = "MApp" Option Explicit Public Declare Function GetBkColor Lib "gdi32" (ByVal hDC As Long) As Long -Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long +Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Sub Main() - Form1.Show + FMain.Show End Sub diff --git a/PTabControl.vbp b/PTabControl.vbp index c53c3ac..0b9a827 100644 --- a/PTabControl.vbp +++ b/PTabControl.vbp @@ -10,8 +10,8 @@ Class=iSubClass; Classes\iSubClass.cls Class=cSubclass; Classes\cSubclass.cls Class=ControlCollection; Classes\ControlCollection.cls ResFile32="Resources\MyRes.res" -IconForm="Form1" -Startup="Form1" +IconForm="FMain" +Startup="FMain" HelpFile="" Title="PTabControl" ExeName32="TabControl.exe" @@ -21,11 +21,11 @@ HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 -RevisionVer=5 +RevisionVer=7 AutoIncrementVer=1 ServerSupportFiles=0 VersionCompanyName="MBO-Ing.com" -VersionFileDescription="TabControl" +VersionFileDescription="TabControl, TabPage, TabPageCollection, ControlCollection, cSubclass, ISubClass" VersionLegalCopyright="MBO-Ing.com" VersionProductName="TabControl" CompilationType=0 diff --git a/TabControl.zip b/TabControl.zip deleted file mode 100644 index 63406c2..0000000 Binary files a/TabControl.zip and /dev/null differ