|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
200279
註冊時間: 2009-11-26 文章: 18
第 1 樓
|
發表於: 星期四 九月 24, 2015 2:22 pm 文章主題: vfp 傳資料給 VB |
|
|
我有一個特殊到不行的case需要大家幫忙給點意見:
客戶有一個AP(VB)由某公家機關外包開發,客戶想從我的VFP上直接傳10 個左右的數值過去到 VB的操作劃面, (VB 會先停在等待輸入的地方,如何把數值填到對應的欄位是個大問題), 這 10 個數值中有日期,字元, 數字, 還有一個 list box, VB 再上傳到某個我沒權限去碰的資料庫(公家單位的,如果上傳資料有漏失責任不好釐清所以只能在VB上傳), 客戶覺得全部的單據太多了,每一筆資料不想在兩個AP之間重覆輸入這10個數值, 再一次人工輸入也怕會有錯誤.
我只能做到把劃面停到VB而已, 請問各位有什麼好主意嗎? 多謝大家 !
declare integer FindWindow in Win32API string class_name, string window_title
DECLARE SetForegroundWindow IN Win32api INTEGER
IF FindWindow(NULL,'上網申報系統') > 0
SetForegroundWindow(FindWindow(NULL, '上網申報系統'))
ENDIF |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期四 九月 24, 2015 2:50 pm 文章主題: |
|
|
可試看看以下方式.
SetForegroundWindow(FindWindow(NULL, '上網申報系統'))
Declare keybd_event IN Win32API SHORT bVk, SHORT bScan, INTEGER dwFlags, INTEGER deExtraInfo
DECLARE SHORT VkKeyScan IN user32 INTEGER ch
DECLARE Sleep IN kernel32 INTEGER dwMilliseconds
Declare integer MapVirtualKey IN user32 integer wCode,integer wMapType
for i=1 to 10
fieldvar = field(i)
_cliptext = tran( &fieldvar ) &&--將10個欄位值放入 剪貼簿
**模擬按下 Ctrl+V
sleep(200) &&--延200毫秒
keybd_event(17, 0, 0, 0) &&--按下Ctrl
keybd_event(ASC('V'),0, 0, 0) &&--按下V
sleep(200) &&--延200毫秒
keybd_event(ASC('V'),0, 2, 0) &&--放開V
keybd_event(17, 0, 2, 0) &&--放開Ctrl
sleep(200) &&--延200毫秒
keybd_event(9, 0, 0, 0) &&--按下Tab
sleep(200) &&--延200毫秒
keybd_event(9, 0, 2, 0) &&--放開Ctrl
sleep(200) &&--延200毫秒
next _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 3 樓
|
發表於: 星期四 九月 24, 2015 3:08 pm 文章主題: |
|
|
oWS = Createobject( "WScript.Shell" )
oWS.AppActivate( "vb.exe" ) &&執行vb的程式
oWS.SendKeys( "{ENTER}"+ "{ENTER}" ) &&填入各個按鍵
Release oWS |
|
回頂端 |
|
|
200279
註冊時間: 2009-11-26 文章: 18
第 4 樓
|
發表於: 星期四 九月 24, 2015 4:18 pm 文章主題: 感謝 |
|
|
謝謝大家這麼快的回覆, 我來試試後再向各位報告結果 ! |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 5 樓
|
發表於: 星期四 九月 24, 2015 4:49 pm 文章主題: |
|
|
3 樓很威.
看起來可以廣泛應用呀.
-----
但是這個權限看來很高. >.<||| _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 6 樓
|
發表於: 星期四 九月 24, 2015 6:11 pm 文章主題: |
|
|
syntech 寫到: | 3 樓很威.
看起來可以廣泛應用呀.
-----
但是這個權限看來很高. >.<||| |
這個我有實際運用,事實可行。
但權限問題就不在我的考慮中啦。 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|