代码搜索:LONG
找到约 10,000 项符合「LONG」的源代码
代码结果 10,000
www.eeworm.com/read/282353/9099691
bas stop.bas
Attribute VB_Name = "MyModule"
' MyModule has the following functions/subs
' Subs:
' OpenApp(FileName as string)
' * Opens an application with the filename specified
' *
www.eeworm.com/read/282353/9099702
frm shellwat.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "用Shell控制别的软件"
ClientHeight = 1440
ClientLeft = 1140
ClientTop = 1515
ClientWidth = 5250
LinkTo
www.eeworm.com/read/282353/9099726
bas rgassistant.bas
Attribute VB_Name = "rg"
'Ramon Guerrero
'ZoneCorp@dallas.net
'ZoneCorp@AOL.com
'ZoneCorp@Compuserve.com
Public Enum ZoomDirection
ZoomFormOpen = 0
ZoomFormClosed = 1
End Enum
Public Zoom
www.eeworm.com/read/282353/9099769
bas rtext.bas
Attribute VB_Name = "Rtextbas"
Option Explicit
#If Win32 Then
Type LOGFONT_TYPE
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation A
www.eeworm.com/read/282353/9099801
bas modmisc.bas
Attribute VB_Name = "modMisc"
Option Explicit
Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Declare Function GetPixel
www.eeworm.com/read/282353/9099808
bas submain.bas
Attribute VB_Name = "SubMain"
Public NextProcs As Long
Public Nodef As Boolean
Public Const GWL_WNDPROC = (-4)
Public Const WM_NCACTIVATE = &H86
Public Const WM_NCRBUTTONUP = &HA5
Public Const
www.eeworm.com/read/282353/9099875
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic
www.eeworm.com/read/282353/9099884
frm bmp2icon.frm
VERSION 5.00
Begin VB.Form frmBmp2Icon
BorderStyle = 1 'Fixed Single
Caption = "BMP to ICO, ICO to BMP"
ClientHeight = 4410
ClientLeft = 45
ClientTop
www.eeworm.com/read/282353/9099893
frm ficons.frm
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmDrawState
Caption = "图标显示的不同方式"
ClientHeight = 5145
ClientLeft
www.eeworm.com/read/282353/9099900
bas subclass.bas
Attribute VB_Name = "mSubClass"
Option Explicit
Private Const WM_NCDESTROY = &H82
Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String)