我用pb ole database blob 列顯示了Word 檔案資料，當保存進去的Word檔案是二頁時，blob 列不能顯示二頁，只能顯示一頁的資料，要看二頁只能激活Word檔案才能查看。
請問，能不打開Word 主能看到二頁的檔案資料嗎？
激活Word的代碼：dw_1.OLEActivate(dw_1.getrow(),"f_olename",0)
我用的是PB9 + SQL SERVER 2005的。請朋友們指點一下哦
uj5u.com熱心網友回復：
換種方法吧，這種方法實作不了建議你把資料從資料庫用selectblob取出來后放在臨時目錄下，生成一個word檔案，然后再用ole連接這個word檔案進行查看
uj5u.com熱心網友回復：
好象 用ole連接后，顯示出來的也只能是顯示一頁的，也不能同時顯示二頁的吧。要查看也要打開Word才能查看的。我想要實作的是直接用ole控制元件顯示有二頁的檔案。有好辦法嗎uj5u.com熱心網友回復：
我想問，可能 PB9換成更高的版本能實作嗎？或者，不能datawindow，用其他控制元件能實作顯示二頁或二頁以上的類似word檔案的資料呢
uj5u.com熱心網友回復：
具體沒做過，說說思路。。實作此功能的關鍵就是要把多頁檔案切割成單頁檔案。如果只查看不編輯的話，就可以簡化成另存為單頁圖片，然后把圖片存入資料庫，再用 lzp_lzp 的方法檢索到本地通過 ole 控制元件顯示。
實際上，也就是要解決 word 轉 jpg 的問題。為了方便實作，只有放棄使用 db ole 控制元件，直接用 ole 控制元件。
uj5u.com熱心網友回復：
另外，想問一下各位同仁：db ole 中雙擊能直接打開Word 。現在我想雙擊 不能打開 Word ，通過按鍵來實作，怎么實作啊，謝謝了uj5u.com熱心網友回復：
試試用 API 模擬雙擊。。轉貼PB 代碼模擬按鍵 API函式keybd_event 及相應的鍵值說明
Subroutine keybd_event(char bVk, char bScan, ulong dwFlags, ref ulong dwExtraInfo) Library "USER32.DLL"
函式定義如：
ulong ll_ExtraInfo
char lc_shift, lc_tab
lc_shift=char(16)
lc_tab=char(9)
keybd_event(lc_shift, char(0), 0, ll_ExtraInfo)
keybd_event(lc_tab, char(0), 0, ll_ExtraInfo)
keybd_event(lc_tab, char(0), 2, ll_ExtraInfo)
keybd_event(lc_shift, char(0), 2, ll_ExtraInfo)//在視窗中宣告如下的全域或區域外部函式： 代碼觸發按鍵
subroutine keybd_event(int bVk,int bScan,int dwFlags,int dwExtraInfo) Library "user32"
// tab鍵的keyvalues為9,如下使用：
// keybd_event(9,0,0,0) //相當于鍵值為9的鍵被按下，即TAB鍵被按下。
// keybd_event(9,0,2,0) //相當于鍵值為9的鍵被釋放，即TAB鍵被釋放。
// shift 的鍵值為16.其它的你可以自己查資料。
VK_Down=40. VK_LEFT=37. VK_UP=38. VK_RIGHT=39
F1－F12分別對應112-123
鍵碼常數
鍵碼
常數 值 描述
vbKeyLButton 1 滑鼠左鍵
vbKeyRButton 2 滑鼠右鍵
vbKeyCancel 3 CANCEL 鍵
vbKeyMButton 4 滑鼠中鍵
vbKeyBack 8 BACKSPACE 鍵
vbKeyTab 9 TAB 鍵
vbKeyClear 12 CLEAR 鍵
vbKeyReturn 13 ENTER 鍵
vbKeyShift 16 SHIFT 鍵
vbKeyControl 17 CTRL 鍵
vbKeyMenu 18 選單鍵
vbKeyPause 19 PAUSE 鍵
vbKeyCapital 20 CAPS LOCK 鍵
vbKeyEscape 27 ESC 鍵
vbKeySpace 32 SPACEBAR 鍵
vbKeyPageUp 33 PAGEUP 鍵
vbKeyPageDown 34 PAGEDOWN 鍵
vbKeyEnd 35 END 鍵
vbKeyHome 36 HOME 鍵
vbKeyLeft 37 LEFT ARROW 鍵
vbKeyUp 38 UP ARROW 鍵
vbKeyRight 39 RIGHT ARROW 鍵
vbKeyDown 40 DOWN ARROW 鍵
vbKeySelect 41 SELECT 鍵
vbKeyPrint 42 PRINT SCREEN 鍵
vbKeyExecute 43 EXECUTE 鍵
vbKeySnapshot 44 SNAP SHOT 鍵
vbKeyInser 45 INS 鍵
vbKeyDelete 46 DEL 鍵
vbKeyHelp 47 HELP 鍵
vbKeyNumlock 144 NUM LOCK 鍵
A 鍵到 Z 鍵與其 ASCII 碼的相應值'A' 到 'Z' 是一致的
常數 值 描述
vbKeyA 65 A 鍵
vbKeyB 66 B 鍵
vbKeyC 67 C 鍵
vbKeyD 68 D 鍵
vbKeyE 69 E 鍵
vbKeyF 70 F 鍵
vbKeyG 71 G 鍵
vbKeyH 72 H 鍵
vbKeyI 73 I 鍵
vbKeyJ 74 J 鍵
vbKeyK 75 K 鍵
vbKeyL 76 L 鍵
vbKeyM 77 M 鍵
vbKeyN 78 N 鍵
vbKeyO 79 O 鍵
vbKeyP 80 P 鍵
vbKeyQ 81 Q 鍵
vbKeyR 82 R 鍵
vbKeyS 83 S 鍵
vbKeyT 84 T 鍵
vbKeyU 85 U 鍵
vbKeyV 86 V 鍵
vbKeyW 87 W 鍵
vbKeyX 88 X 鍵
vbKeyY 89 Y 鍵
vbKeyZ 90 Z 鍵
0 鍵到 9 鍵與其 ASCII 碼的相應值 '0' 到 '9' 是一致的
常數 值 描述
vbKey0 48 0 鍵
vbKey1 49 1 鍵
vbKey2 50 2 鍵
vbKey3 51 3 鍵
vbKey4 52 4 鍵
vbKey5 53 5 鍵
vbKey6 54 6 鍵
vbKey7 55 7 鍵
vbKey8 56 8 鍵
vbKey9 57 9 鍵
數字小鍵盤上的鍵
常數 值 描述
vbKeyNumpad0 96 0 鍵
vbKeyNumpad1 97 1 鍵
vbKeyNumpad2 98 2 鍵
vbKeyNumpad3 99 3 鍵
vbKeyNumpad4 100 4 鍵
vbKeyNumpad5 101 5 鍵
vbKeyNumpad6 102 6 鍵
vbKeyNumpad7 103 7 鍵
vbKeyNumpad8 104 8 鍵
vbKeyNumpad9 105 9 鍵
vbKeyMultiply 106 乘號 (*) 鍵
vbKeyAdd 107 加號 (+) 鍵
vbKeySeparator 108 ENTER 鍵（在數字小鍵盤上）
vbKeySubtract 109 減號 (-) 鍵
vbKeyDecimal 110 小數點 (.) 鍵
vbKeyDivide 111 除號 (/) 鍵
功能鍵
常數 值 描述
vbKeyF1 112 F1 鍵
vbKeyF2 113 F2 鍵
vbKeyF3 114 F3 鍵
vbKeyF4 115 F4 鍵
vbKeyF5 116 F5 鍵
vbKeyF6 117 F6 鍵
vbKeyF7 118 F7 鍵
vbKeyF8 119 F8 鍵
vbKeyF9 120 F9 鍵
vbKeyF10 121 F10 鍵
vbKeyF11 122 F11 鍵
vbKeyF12 123 F12 鍵
vbKeyF13 124 F13 鍵
vbKeyF14 125 F14 鍵
vbKeyF15 126 F15 鍵
vbKeyF16 127 F16 鍵
uj5u.com熱心網友回復：
很感謝 6#朋友 的幫助，寫了那么多的代碼。我真看不懂，上面的代碼能實作 限制用戶雙擊打開 db ole控制元件嗎?
用"按鍵"實作打開Word，用下面一個陳述句就可能了啊，
dw_1.OLEActivate(dw_1.getrow(),"f_olename",0)
我想實作的功能是 當用戶雙擊db ole 控制元件時，不能打開Word，而只能通過單擊“功能按鈕”來實作打開Word.
uj5u.com熱心網友回復：
把資料視窗設為只讀就無法打開控制元件了，如果資料視窗需要錄入，可以考慮在 clicked 事件中通過 dwo.name 判斷是否為 OLE 來動態設定只讀。不過我沒這么搞過，是否可行還得試下看了。。uj5u.com熱心網友回復：
dw_1.enabled = false 能實作無法打開控制元件的功能，但是下拉滾動滑塊不能用了，有一頁的資料只能看到半頁啊。要資料可以控制的，把屬性改回來就可以了。就是下拉滾動滑塊不能用，
在雙擊事件中輸入dw_1.enabled = false沒有用，還是可以打開的。
uj5u.com熱心網友回復：
不是設定資料視窗的 enabled 屬性，是 readonly 屬性。在單擊事件 clicked 中動態設定，因為到雙擊事件中設定時已經晚了，再試試。。uj5u.com熱心網友回復：
我試了，在單擊事件中輸入以下代碼：dw_1.Object.DataWindow.ReadOnly='yes'
不過，還是沒用啊，可能是這個ole database blob 資料視窗沒有 display only 屬性的原因吧。
uj5u.com熱心網友回復：
dw_1 本身也有 readonly 屬性啊！就是 dw_1.readonly = true，這是我已經試過的，肯定可行。為便于錄入，可以在雙擊事件中解除只讀。
uj5u.com熱心網友回復：
你好 dw_1.readonly = true 這個代碼在PB9 中是錯誤的啊
你說是更高的版本嗎。
上圖中：顯示錯誤提示。
uj5u.com熱心網友回復：
真不好意思。。很久以前的代碼，記錯了！剛剛查了一下代碼，原來是設為列印預覽模式如：dw_1.object.datawindow.print.preview = "yes" // 設為列印預覽模式
還有一種更簡單的方法，就是在雙擊事件中回傳非零值（但記憶里這種方法在 pb6.5 下有時會失效）
如：if dwo.name = "ole_1" then return 1
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/49731.html
標籤：DataWindow
上一篇：控制DATAWINDOW里每頁顯示的行數為什么變成都是17行?
下一篇：看本帖