Public Function ImeGetDescription() As String
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
程式碼您都列出來了, 測一下不就有結果了嗎？
倉頡輸入法4.1版 傳回值就是 "倉頡輸入法4.1版"
注音輸入法4.1版 傳回值就是 "注音輸入法4.1版"
微軟新注音輸入法98a 傳回值就是 "微軟新注音輸入法98a"
那傳回函數叫什麼名字丫~~~~?????