VFB实用函数摘录

VFB实用函数摘录
━━━━━━━━━━━━━━━━━━━━━━━━━
GetFileStrArray
获取文件文本到数组里
Function GetFileStrArray(szFileName As CWSTR,StrArray() As String ) As Long
━━━━━━━━━━━━━━━━━━━━━━━━━
GetFileByte
读文件到 Byte 数组中
Function GetFileByte(ByVal szFileName As CWSTR, by() As uByte) As UInteger
━━━━━━━━━━━━━━━━━━━━━━━━━
OpenFileExe
打开EXE文件运行
Function OpenFileExe(Exe As CWSTR, Parameters As CWSTR, Operation As CWSTR = "open") As HINSTANCE
━━━━━━━━━━━━━━━━━━━━━━━━━
GetFileExtendName
获取文件扩展名，就是小数点后面的
Function GetFileExtendName(szPath As String) As String
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_OpenFileDialog
创建并显示打开的通用对话框。返回所选的文件名，如果选择了多个文件将会用“|”分隔列表。若无选择返回空字符。
Function FF_OpenFileDialog() As CWSTR
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_SaveFileDialog
创建并显示会保存文件通用对话框。返回所选的文件名，如果选择了多个文件将会用“|”分隔列表。若无选择返回空字符。
Function FF_SaveFileDialog() As CWSTR
━━━━━━━━━━━━━━━━━━━━━━━━━
OpenWWW
打开网页
Sub OpenWWW(Wnd As HWnd, WWW As String)
━━━━━━━━━━━━━━━━━━━━━━━━━
SetTransparentWin
透明窗体(hWind,透明百分比,色彩,鼠标穿透)
Sub SetTransparentWin(hWndID As HWnd, ByVal Percent As Long = - 1, ByVal nColor As Long = - 1, ByVal Wear As Long = 0)
━━━━━━━━━━━━━━━━━━━━━━━━━
TuoYiWindows
拖动窗口，鼠标点下可以拖动窗口
Sub TuoYiWindows(hWndID As HWnd)
━━━━━━━━━━━━━━━━━━━━━━━━━
设置指定窗口的大小（以像素为单位）。
Private Function AfxSetWindowSize ( ByVal hwnd As HWND, ByVal nWidth As Long, ByVal nHeight As Long ) As Boolean
hwnd [In]窗口句柄。
nWidth [In]窗口的新宽度。
nHeight [In]窗口的新高度。
返回值 如果函数成功，则返回值为TRUE。
如果函数失败，则返回值为FALSE。要获得更多的错误信息，请调用GetLastError.
━━━━━━━━━━━━━━━━━━━━━━━━━
AfxSetWindowText
设置窗口的文本。这个功能也可以用来设置按钮的文本，编辑和静态控件。
Function AfxSetWindowText ( ByVal hwnd As HWND, ByVal pwszText As WSTRING PTR ) As Boolean
Private Function AfxSetWindowText (ByVal hwnd As HWND, ByRef pwszText As CWSTR ) As Boolean
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_TextBox_GetLine
获取TextBox 控件某行的文本 。
Function FF_TextBox_GetLine (ByVal hWndControl As HWnd, ByVal nLineNumber As Long) As CWSTR
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_TextBox_GetLineCount
检索一个多行文本框中的行数。
Function FF_TextBox_GetLineCount (ByVal hWndControl As HWND) As Long
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_TextBox_SetMargins
设置文本框的左侧和右侧的边距。
Sub FF_TextBox_SetMargins (ByVal hWndControl As HWnd, ByVal nLeftMargin As Long, ByVal nRightMargin As Long)
━━━━━━━━━━━━━━━━━━━━━━━━━
Edit_GetRect
获取编辑控件的格式化矩形。格式化矩形是控件绘制文本的限制矩形。限制矩形与编辑控件窗口的大小无关。您可以使用此函数或发送EM_GETRECT消息明确。

define Edit_GetRect(hwndCtl, lprc) SNDMSG((hwndCtl), EM_GETRECT, cast(LPARAM, 0), cast(LPARAM, cptr(RECT ptr, (lprc))))

hEdit [In]编辑控件的句柄。
lprc [In]指向接收格式化矩形的RECT结构的指针。
━━━━━━━━━━━━━━━━━━━━━━━━━
Edit_SetCueBannerText
设置编辑控件显示的文本提示或提示，以提示用户输入信息。您可以使用此函数或发送EM_SETCUEBANNER消息明确。

define Edit_SetCueBannerText(hwnd, lpcwText) cast(WINBOOL, SNDMSG((hwnd), EM_SETCUEBANNER, 0, cast(LPARAM, (lpcwText))))

hEdit [In]编辑控件的句柄。
lpcwText [In]包含要显示为文本提示的文本的字符串。该函数内的字符串被转换为unicode。
返回值 如果消息成功，则返回TRUE。否则它返回FALSE。
━━━━━━━━━━━━━━━━━━━━━━━━━
AfxUrlCreateFromPath
将Microsoft MS - DOS路径转换为规范化的URL。
Private Function AfxUrlCreateFromPath (ByRef wszPath As WSTRING) As CWSTR
wszPath [In]包含MS - DOS路径的字符串。
返回值 规范化的网址。
━━━━━━━━━━━━━━━━━━━━━━━━━
GetNativeCurrentIP
获取当前联网的网卡的本机IP，返回空表示没有联网。
Function GetNativeCurrentIP() As String
━━━━━━━━━━━━━━━━━━━━━━━━━
Http_Get
GET方法获取网页
Function Http_Get(ByVal URL As String, ref As String = "", user As String = "", pwd As String = "") As String
━━━━━━━━━━━━━━━━━━━━━━━━━
Http_Post
Post方法获取网页
Function Http_Post( URL As String, param As String, ref As String = "", user As String = "", pwd As String = "") As String
━━━━━━━━━━━━━━━━━━━━━━━━━
network_UDP_Create
创建UDP网络通信（仅限32位软件，64位无静态库）
Function network_UDP_Create(IPv4 As String ,Port As UShort ,lpCallBack As Any Ptr ,Custom As Integer = 0) As Any Ptr
━━━━━━━━━━━━━━━━━━━━━━━━━
network_UDP_Send
UDP发送数据（仅限32位软件，64位无静态库）
Function network_UDP_Send(hSock As Any Ptr, sPack As String, IPv4 As String, Port As UShort, Sync As Integer = 0) As Integer
━━━━━━━━━━━━━━━━━━━━━━━━━
OpenWWW
打开网页
Sub OpenWWW(Wnd As HWnd, WWW As String)
━━━━━━━━━━━━━━━━━━━━━━━━━
GetCursorPos
返回鼠标指针的当前垂直位置，单位为像素点，相对于屏幕顶边。
Dim A As Point
GetCursorPos @a
"x=" & a.x & ",y=" & a.y
━━━━━━━━━━━━━━━━━━━━━━━━━
GetCursorPos
检索鼠标光标在屏幕坐标中的位置。
Declare Function GetCursorPos(ByVal lpPoint As LPPOINT) As WINBOOL
lpPoint 指向POINT结构的指针，该结构接收光标的屏幕坐标。
返回值 如果成功返回非零，否则返回零。
━━━━━━━━━━━━━━━━━━━━━━━━━
取默认底色
GetSysColor(COLOR_WINDOW)
取回Windows系统的默认窗口背景颜色。
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_ClipboardSetText
将指定文本存放到当前 Windows 系统剪辑板中去，剪辑板中的原有内容被覆盖。
━━━━━━━━━━━━━━━━━━━━━━━━━
INI_GetKey
读取指定配置文件中指定项目的文本内容。
━━━━━━━━━━━━━━━━━━━━━━━━━
INI_SetKey
将指定文本内容写入指定配置项中或者删除指定的配置项或节，如果指定配置文件不存在，将会自动创建。
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_INI_GetSectionsList
返回指定配置文件中所有已有节名的文本数组。
━━━━━━━━━━━━━━━━━━━━━━━━━
取统一文本
StrToWStr
返回所指定文本的Unicode格式字节集。
━━━━━━━━━━━━━━━━━━━━━━━━━
取屏幕宽度
GetSystemMetrics( SM_CXFULLSCREEN )
返回屏幕当前显示区域的宽度，单位为像素点。
━━━━━━━━━━━━━━━━━━━━━━━━━
取屏幕高度
GetSystemMetrics( SM_CYSCREEN )
返回屏幕当前显示区域的高度，单位为像素点。
━━━━━━━━━━━━━━━━━━━━━━━━━
写到文件
GetSystemMetrics( SM_CYSCREEN )
返回屏幕当前显示区域的高度，单位为像素点。
━━━━━━━━━━━━━━━━━━━━━━━━━
读入文件1
GetFileStr
读取文件到字符串
Function GetFileStr(ByVal szFileName As String) As String
━━━━━━━━━━━━━━━━━━━━━━━━━
读入文件2
GetFileByte
读文件到 Byte 数组中'返回文件长度
Function GetFileByte(ByVal szFileName As String,by() As uByte ) As Integer
━━━━━━━━━━━━━━━━━━━━━━━━━
读入文件到文本
GetFileByte
读文件到 Byte 数组中'返回文件长度
Function GetFileByte(ByVal szFileName As String,by() As uByte ) As Integer
━━━━━━━━━━━━━━━━━━━━━━━━━
文件是否存在
FileExists
判断指定的磁盘文件是否真实存在。
━━━━━━━━━━━━━━━━━━━━━━━━━
取运行目录
App.Path
取当前被执行的文件所处的目录。
App.Path
APP 类里包含了很多EXE相关的东西
━━━━━━━━━━━━━━━━━━━━━━━━━
取执行文件名
App.EXEName
取当前被执行的文件的名称。
━━━━━━━━━━━━━━━━━━━━━━━━━
取时间间隔
App.EXEName
取当前被执行的文件的名称。
━━━━━━━━━━━━━━━━━━━━━━━━━
时间到文本
Format(Now, "yyyy-mm-dd hh:mm:ss")
将指定时间转换为文本并返回。
result = Format( numerical_expression , formatting_expression )
━━━━━━━━━━━━━━━━━━━━━━━━━
二进制
& B
计算返回所指定二进制文本常量对应的整数值 & B 开头表示二进制
& B34
━━━━━━━━━━━━━━━━━━━━━━━━━
十六进制
&H
计算返回所指定十六进制文本常量对应的整数值. 用 &H开头表示十六进制
&H111
━━━━━━━━━━━━━━━━━━━━━━━━━
数值到格式文本
Format (a,"#,##0.00")
返回一个文本，代表指定数值被格式转换后的结果。
Format( numerical_expression , formatting_expression )
━━━━━━━━━━━━━━━━━━━━━━━━━
数组赋值
给数组赋值，必须在定义时赋值。
Dim a(2) Long = {1,2,3}
━━━━━━━━━━━━━━━━━━━━━━━━━
选择
iif 根据所提供参数的值，返回两部分中的其中一个。
━━━━━━━━━━━━━━━━━━━━━━━━━
到循环尾
Continue {Do | For | While}
转移当前程序执行位置到当前所处循环体的循环尾语句处。
Continue {Do | For | While}
━━━━━━━━━━━━━━━━━━━━━━━━━
返回
Return
转移当前程序执行位置到调用本子程序语句的下一条语句处,并可根据需要返回一个值到子程序调用处。
Return [ expression ]
━━━━━━━━━━━━━━━━━━━━━━━━━
取焦点句柄
GetForegroundFocus
获取前台程序焦点窗口句柄
Function GetForegroundFocus() As hWnd
━━━━━━━━━━━━━━━━━━━━━━━━━
AfxGetControlHandle
以指定的标识符返回控件的句柄。参考句柄可以是表单的句柄或表单上任何其他控件的句柄。
Function AfxGetControlHandle ( ByVal hwnd As HWND. ByVal wCtrlID As WORD ) As HWND
Private Function AfxGetControlHandle (ByVal hwnd As HWND, ByVal wCtrlID As WORD) As HWND
hwnd [In]处理窗口。
wCtrlID [In]控件标识符。
返回值 返回控件的句柄或NULL。
━━━━━━━━━━━━━━━━━━━━━━━━━
AfxGetFormHandle
查找作为指定窗口句柄的祖先的顶级窗口或MDI子窗口的句柄。引用句柄是表单上任何控件的句柄。
Private Function AfxGetFormHandle (ByVal hwnd As HWND) As HWND
━━━━━━━━━━━━━━━━━━━━━━━━━
AfxGetHwndFromPID
根据进程标识符检索窗口句柄。
Private Function AfxGetHwndFromPID (ByVal PID As DWORD) As HWND
━━━━━━━━━━━━━━━━━━━━━━━━━
AfxSetWindowSize
设置指定窗口的大小（以像素为单位）。
Private Function AfxSetWindowSize ( ByVal hwnd As HWND, ByVal nWidth As Long, ByVal nHeight As Long ) As Boolean
━━━━━━━━━━━━━━━━━━━━━━━━━
FF_Control_SetTag
将标记属性字符串设置为控件或窗体。
Sub FF_Control_SetTag( ByVal hWnd As HWND, ByRef NewTag As CWSTR )
━━━━━━━━━━━━━━━━━━━━━━━━━