gfdgd-xi/deep-wine-runner
1
0
Fork 0
mirror of https://gitee.com/gfdgd-xi/deep-wine-runner synced 2025-12-13 18:42:03 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

用于检测VB6的demo完成

Browse Source
This commit is contained in:
gfdgd xi
2022-11-05 16:54:42 +08:00
parent 7b20666c87
commit 314a685395
9 changed files with 279 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

126
demo/CheckVB6/Form1.frm Normal file
View File

@@ -0,0 +1,126 @@
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3600
ClientLeft = 60
ClientTop = 345
ClientWidth = 5880
BeginProperty Font
EndProperty
Font = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3600
ScaleWidth = 5880
StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ
Begin VB.DriveListBox Drive1
BeginProperty Font
EndProperty
Font = "Form1.frx":000F
Height = 300
Left = 4080
TabIndex = 8
Top = 1680
Width = 975
End
Begin VB.ComboBox Combo1
BeginProperty Font
EndProperty
Font = "Form1.frx":001E
Height = 300
Left = 4920
TabIndex = 7
Text = "Combo1"
Top = 840
Width = 855
End
Begin VB.ListBox List1
BeginProperty Font
EndProperty
Font = "Form1.frx":002D
Height = 420
Left = 3720
TabIndex = 6
Top = 720
Width = 975
End
Begin VB.OptionButton Option2
Caption = "Option2"
BeginProperty Font
EndProperty
Font = "Form1.frx":003C
Height = 255
Left = 1920
TabIndex = 5
Top = 3240
Width = 975
End
Begin VB.OptionButton Option1
Caption = "Option1"
BeginProperty Font
EndProperty
Font = "Form1.frx":004B
Height = 255
Left = 480
TabIndex = 4
Top = 3240
Width = 975
End
Begin VB.CheckBox Check1
Caption = "Check1"
BeginProperty Font
EndProperty
Font = "Form1.frx":005A
Height = 375
Left = 2400
TabIndex = 3
Top = 2520
Width = 855
End
Begin VB.TextBox Text1
BeginProperty Font
EndProperty
Font = "Form1.frx":0069
Height = 495
Left = 2520
TabIndex = 2
Text = "Text1"
Top = 1680
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Command1"
BeginProperty Font
EndProperty
Font = "Form1.frx":0078
Height = 615
Left = 2520
TabIndex = 1
Top = 720
Width = 855
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1905
Left = 240
Picture = "Form1.frx":0087
Stretch = -1 'True
Top = 840
Width = 1905
End
Begin VB.Label Label1
Caption = "<22>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD> Wine <20><><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD> Visual Basic 6 <20><><EFBFBD><EFBFBD>"
BeginProperty Font
EndProperty
Font = "Form1.frx":558B
Height = 375
Left = 120
TabIndex = 0
Top = 120
Width = 5655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

BIN
demo/CheckVB6/Form1.frx Normal file
View File

Binary file not shown.

BIN
demo/CheckVB6/工程1.exe Executable file
View File

Binary file not shown.

29
demo/CheckVB6/工程1.vbp Normal file
View File

@@ -0,0 +1,29 @@
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\windows\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="<22><><EFBFBD><EFBFBD>1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="FREE"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1