?? frmupdateinfo.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form frmUpdateInfo
AutoRedraw = -1 'True
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Caption = "frmUpdateInfo"
ClientHeight = 4710
ClientLeft = 0
ClientTop = 0
ClientWidth = 1515
LinkTopic = "Form1"
ScaleHeight = 314
ScaleMode = 3 'Pixel
ScaleWidth = 101
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox WindowBorder
BorderStyle = 0 'None
Height = 420
Left = 0
Picture = "frmUpdateInfo.frx":0000
ScaleHeight = 420
ScaleWidth = 1575
TabIndex = 1
Top = 0
Width = 1575
Begin MynetChat.chameleonButton cmdClose
Height = 255
Left = 1200
TabIndex = 2
ToolTipText = "Close"
Top = 60
Width = 255
_extentx = 450
_extenty = 450
btype = 3
tx = "chameleonButton1"
enab = -1 'True
font = "frmUpdateInfo.frx":223E
coltype = 2
focusr = -1 'True
bcol = 13160660
bcolo = 13160660
fcol = 0
fcolo = 0
mcol = 12632256
mptr = 1
micon = "frmUpdateInfo.frx":2266
picn = "frmUpdateInfo.frx":2284
umcol = -1 'True
soft = 0 'False
picpos = 0
ngrey = 0 'False
fx = 0
hand = 0 'False
check = 0 'False
value = 0 'False
End
End
Begin MSFlexGridLib.MSFlexGrid grid
Height = 4095
Left = 30
TabIndex = 0
Top = 480
Width = 1425
_ExtentX = 2514
_ExtentY = 7223
_Version = 393216
Rows = 1
Cols = 1
FixedRows = 0
FixedCols = 0
ForeColor = 0
BackColorFixed = 15463924
ForeColorFixed = 0
BackColorSel = 0
BackColorBkg = 15463924
BorderStyle = 0
Appearance = 0
End
End
Attribute VB_Name = "frmUpdateInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
' :) 人人為我,我為人人 :)
'枕善居漢化收藏整理
'發布日期:05/08/03
'描 述:我的網絡聊天室 (客戶端)
'網 站:http://www.mndsoft.com/
'e-mail :mnd@mndsoft.com
'OICQ :88382850
'****************************************************************************
Option Explicit
'declare constants:
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
'declare API:
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
'Round the form
Dim rndfrm As New ROUND_FORM
Private Sub cmdClose_Click()
Me.Hide
End Sub
Private Sub Form_Load()
'set window on top
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or _
SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
'round form shape
rndfrm.ROUND_FORM Me, 12, 1, 1
End Sub
Private Sub WindowBorder_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
Exit Sub
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -