VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

vfp 傳資料給 VB

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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
文章: 1642


第 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
文章: 4211
來自: Taipei,Taiwan

第 5 樓

發表發表於: 星期四 九月 24, 2015 4:49 pm    文章主題: 引言回覆

3 樓很威.

看起來可以廣泛應用呀.


-----
但是這個權限看來很高. >.<|||

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 6 樓

發表發表於: 星期四 九月 24, 2015 6:11 pm    文章主題: 引言回覆

syntech 寫到:
3 樓很威.
看起來可以廣泛應用呀.
-----
但是這個權限看來很高. >.<|||


這個我有實際運用,事實可行。
但權限問題就不在我的考慮中啦。
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作