OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

アクセス2000にて

  • 暇なときにでも
  • 質問No.222256
  • 閲覧数26
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 10% (20/195)

コンピュータ名を取得したいのですが、
モジュールの書き方がわかりません。
すみませんが教えて下さい。
お願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル7

ベストアンサー率 27% (5/18)

WindowsAPI関数を使用します。

↓ 一行で書いてください。
コードモジュールの「General」-「Declarations」に
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

次にイベントを発生させたい個所に
(例)ボタンクリック時なら Sub MyButton_Click()

Dim ret As Long
Dim cpName As String * 1024

ret = GetComputerName(cpName, 1024)

MsgBox Trim(cpName)


で画面にコンピュータ名が表示されると思います。
お礼コメント
syusyusyusyu

お礼率 10% (20/195)

ありがとうございました。
投稿日時 - 2002-02-22 10:41:25
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ