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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.