PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
14835 01/03/22 08:58:02 RE(7):PB6.5: ありがとうございます By aqua
14831 01/03/21 16:56:51 RE(6):PB6.5: 任意でプリンタの指定をするには?(サンプル2-2) By M.M
14830 01/03/21 16:54:17 RE(5):PB6.5: 任意でプリンタの指定をするには?(サンプル2-1) By M.M
14829 01/03/21 16:47:12 RE(4):PB6.5: 任意でプリンタの指定をするには?(サンプル1-2) By M.M
14828 01/03/21 16:46:43 RE(3):PB6.5: 任意でプリンタの指定をするには?(サンプル1-1) By M.M
14827 01/03/21 15:40:17 RE(2):PB6.5: 任意でプリンタの指定をするには? By aqua
14826 01/03/19 18:58:27 RE(1):PB6.5: 任意でプリンタの指定をするには? By Taka
14824 01/03/19 12:00:50 PB6.5: 任意でプリンタの指定をするには? By aqua

カテゴリ:印刷処理
日付:2001年03月21日 16:47 発信者:M.M
題名:RE(4):PB6.5: 任意でプリンタの指定をするには?(サンプル1-2)

サンプル1-1の続きです。


//レジストリから、登録されているプリンタの一覧を取得
//レジストリ情報を取得(OS別に処理を分岐)
choose case sle_os_name.text
case \"Windows 95/98\"
err = RegistryKeys(\"HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\\" + &
\"Control\\Print\\Printers\", SubKeyList)
case \"Windows NT\"
err = RegistryValues(\"HKEY_CURRENT_USER\\Software\\Microsoft\\\" + &
\"Windows NT\\CurrentVersion\\Devices\", SubKeyList)
case else
//エラー処理
messageBox(\"エラー\",\"変数\'sle_os_name.text\' に予期しない値 \'\"+ &
sle_os_name.text+ \"\'が格納されていました\")
return
end choose

if err=-1 then
//エラー処理
messageBox(\"エラー\",\"レジストリ値の取得に失敗しました。\")
return
end if

//取得したKeyの個数を調べる
keyMax = upperBound(subKeyList)

//取得したキーをドロップダウンリストボックスに表示
for l=1 To keyMax
lb_printers.addItem(SubKeyList[l])
next



付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows NT 4.0
DBMS Oracle SQL*Net 8
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.