VB编程笔记

一、获取系统语言版本

Option Explicit

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Sub Main()
    Dim LocaleID As Long
    
    LocaleID = GetSystemDefaultLCID
    
    Select Case LocaleID
        Case &H404
            MsgBox "当前系统为：中文繁体", , "语言"
        Case &H804
            MsgBox "当前系统为：中文简体", , "语言"
        Case &H409
            MsgBox "当前系统为：英文", , "语言"
    End Select
End Sub

二、立即数溢出
例如：

Dim temp As Long
temp = 8192 * 100  

上面代码运行时会报错下标溢出，原因其实是立即数溢出了，那两个数默认是integer类型
所以改成：

Dim temp As Long
temp = 8192& * 100  

就不会报错了。

未完待续…