代码搜索:LONG
找到约 10,000 项符合「LONG」的源代码
代码结果 10,000
www.eeworm.com/read/184930/9064878
bas module1.bas
Attribute VB_Name = "Module1"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters
www.eeworm.com/read/184930/9064907
bas regedit.bas
Attribute VB_Name = "Regedit"
'VB提供了四个访问Windows注册表的函数,但是只能访问
'“HKEY_CURRENT_USER\Software\VB and VBA Program Settings”下,
'不能任意的访问,也不能存取除字符串以外类型的字段,幸好VB能通
'过于Windows API来访问注册表,于是笔者根据API函数编
'写这个访问注
www.eeworm.com/read/381906/9064926
bas modshaper.bas
Attribute VB_Name = "ModShaper"
Global Const ALTERNATE = 1
Global Const WINDING = 2
Type POINTDATA
X As Long
Y As Long
End Type
Declare Function CreatePolygonRgn Lib "gdi32" (lpPoin
www.eeworm.com/read/381906/9065002
bas extracticon.bas
Attribute VB_Name = "Module1"
Option Explicit
Global lIcon&
Global sSourcePgm$
Global sDestFile$
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVa
www.eeworm.com/read/381906/9065018
bas module1.bas
Attribute VB_Name = "Module1"
Option Explicit
' API函数声明
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declar
www.eeworm.com/read/381906/9065040
bas module1.bas
Attribute VB_Name = "Module1"
' window always on top
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx
www.eeworm.com/read/381906/9065056
frm getdrive.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "获得系统的信息"
ClientHeight = 4530
ClientLeft = 2100
ClientTop = 345
ClientWidth = 6300
LinkTopic
www.eeworm.com/read/381906/9065217
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000004&
Caption = "监视网络联接"
ClientHeight = 3675
ClientLeft = 60
ClientTop = 345
ClientWi
www.eeworm.com/read/381906/9065452
bas module1.bas
Attribute VB_Name = "Module1"
Option Explicit
Public Const CALLBACK_FUNCTION = &H30000
Public Const MMIO_READ = &H0
Public Const MMIO_FINDCHUNK = &H10
Public Const MMIO_FINDRIFF = &H20
Public
www.eeworm.com/read/381906/9065484
frm frmmain.frm
VERSION 5.00
Begin VB.Form frmMain
Caption = "隐藏Windows的开始按钮"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkT