【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了frmFScreenB.frm相关资料,希望对各位网友有所帮助!
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmFScreenB
BorderStyle = 3 'Fixed Dialog
Caption = "Full Screen"
ClientHeight = 375
ClientLeft = 45
ClientTop = 330
ClientWidth = 540
Icon = "frmFScreenB.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 375
ScaleWidth = 540
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin MSComctlLib.ImageList imgFull
Left = 480
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFScreenB.frx":000C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbrFull
Height = 330
Left = 120
TabIndex = 0
Top = 0
Width = 375
_ExtentX = 661
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
Style = 1
ImageList = "imgFull"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 1
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "FullScreen"
Object.ToolTipText = "Close Full Screen"
ImageIndex = 1
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmFScreenB"
Attribute
VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
OnTop Me
DisableX Me
frmFScreen.FSRTB.SelStart = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
NotOnTop Me
End Sub
Private Sub tbrFull_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "FullScreen"
Unload frmFScreen
Unload Me
End Select
End Sub