分类：VB

VB经典操作ini类

技术狂人张大胆 1年前 VB

VB经典操作ini类

Option Explicit '--------classIniFile.cls 代码---------------- Private strINI As String 'Windows API Declares Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVa...

1482 0 0

VB Label过长的文本显示

技术狂人张大胆 1年前 VB

VB Label过长的文本显示

Option Explicit 'API定义： Private Declare Function GetTextExtentExPoint Lib "gdi32" Alias "GetTextExtentExPointA" (ByVal hdc As Long, ByVal lpszStr As String, ByVal cchString As Long, ByVal nMaxExtent As Long, lpnFit As Long, alpDx As Long, lpSize As Size) As Long Private T...

940 2 0

没有更多了