原创 VB取各顏色分量,將RGB轉爲HTML顏色.
'//取各顏色分量 Public Function GetRedValue(COLOR As Long) As Integer '取得紅色值
2020-06-13 12:02:17
原创 VB 磁盤信息,文件夾,文件操作
'文件,文件夾操作類 ' '/工程==>引用==>Microsoft Scripting Runtime Option Explicit
2020-06-13 12:02:07
原创 VB各種標準對話框
' '標準對話框(SmDialog) ' Option Explicit Private Const RESOURCE_CONNECTED As Long = &H1 Private Const RESOURCE_GLOBA
2020-02-21 12:51:24
原创 VB 漢字拼音及聲調
Private Sub Command1_Click() Text2 = "全拼+聲調：" & GetChineseSpell(Text
2020-02-21 12:51:24
原创 VB中自定義一個調色板
' '圖形顏色類' Option Explicit Dim Colors() As Variant Dim ColorToUse As
2020-02-21 12:51:10
原创 VB字符串表達式計算函數.
這是一個VB6.0的字符串表達式計算函數. Private Function EvaluateExpr(ByVal expr As String) As Single Const PREC_NONE = 1
2020-02-21 12:51:10
原创 VB利用API進行媒體播放
' '媒體播放(SmMedia) ' Option Explicit Dim s As String, ShortPathName
2020-02-21 12:51:10
原创 VB取硬盤的物理信息(序列號,容量,轉速,型號)
' '取硬盤的物理信息(序列號,容量,轉速,型號)(smHDinfo) ' '/網站：東方熱訊：http://www.easthot.n
2020-02-21 12:51:09