VB 英数記号空白の半角変換 ― 2007年05月02日 14時17分46秒
Function F_半角変換(Pm_Data) As String '数字記号をすべて半角にする On Error GoTo F_半角変換_Err
Dim i
Dim Wk_AData() As String
ReDim Wk_AData(Len(Pm_Data))
For i = 1 To Len(Pm_Data)
Select Case AscW(Mid(Pm_Data, i, 1))
Case -32 To -27, -255 To -162, 12288 '空白も含む
Wk_AData(i) = StrConv(Mid(Pm_Data, i, 1), vbNarrow)
Case Else
Wk_AData(i) = Mid(Pm_Data, i, 1)
End Select
Next i
F_半角変換 = Join(Wk_AData, "")
F_半角変換_Exit:
Exit Function
F_半角変換_Err:
MsgBox Err.Description F_半角変換 = Pm_Data Resume F_半角変換_Exit
End Function
ネットワーク接続 ― 2007年03月23日 10時48分32秒
コマンド プロンプト
net use
で確認
色選択（RGB） ― 2007年03月14日 14時29分49秒
' [色の設定] ダイアログを表示させる Access API 宣言 Private Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hWnd As Long, RGB As Long)
W_RGB = Me.色 ' 色の初期値を設定 Call ChooseColor(Me.hWnd, W_RGB) ' [色の設定] ダイアログを表示 r = (W_RGB And &HFF&) g = (W_RGB And &HFF00&) / (2 ^ 8) b = (W_RGB And &HFF0000) / (2 ^ 16) Me.色 = RGB(r, g, b)
ＰＣ識別情報の取得 ― 2007年02月16日 18時39分13秒
プロダクトＩＤ(ProductId) HKEY_LOCAL_MACHINE|Software\Microsoft\Windows\CurrentVersion
にある。ＸＰ、２０００でも同じだった。
WMIを使用するとＶＢＡで簡単に取得できた。 Dim Reg As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim sRet As String Dim TmpbRet As String Dim I As Long
Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer(vbNullString, "root\default") Set Reg = Service.Get("StdRegProv")
Const HKEY_LOCAL_MACHINE = &H80000002
'文字列値 Reg.GetStringValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", "ProductId", sRet
MsgBox sRet
Set Reg = Nothing Set Service = Nothing Set Locator = Nothing
最近のコメント