 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
sanchi
註冊時間: 2003-11-11
文章: 61
第 1 樓
|
 發表於: 星期二 一月 19, 2010 10:23 pm 文章主題: 如何以程式顯示檔案內容 |
 |
|
各位高手大大:
form中由user輸入或選擇檔名(各種已註冊之副檔名都有可能),然後按一鈕顯示檔案內容(.doc應該會啟動word,.txt應該會啟動notepad,.wmv應該會啟動windowMediaPlayer...),請問按鈕的click event要怎麼寫  |
|
| 回頂端 |
|
 |
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 2 樓
|
| 發表於: 星期二 一月 19, 2010 11:45 pm 文章主題: |
|
|
最最最簡單的方式是
一律用 IE 去開 , 反正它自己會再去呼叫相關程式。 |
|
| 回頂端 |
|
|
aizz
註冊時間: 2007-01-29
文章: 172
第 3 樓
|
| 發表於: 星期三 一月 20, 2010 8:42 am 文章主題: 妙招 |
|
|
| ckp6250 寫到: | 最最最簡單的方式是
一律用 IE 去開 , 反正它自己會再去呼叫相關程式。 |
上面這招, 正好符合 「黑貓白貓, 抓到老鼠的就是好貓」 的原則
佩服佩服!
 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4214
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期三 一月 20, 2010 11:04 am 文章主題: |
|
|
m$ 看了都要掉眼淚.
從 WIN 95 以來,M$就加上 OPEN 這種東西可以用
| 代碼: |
****************************************************************************************
* 以WINDOWS 預?#93;方式?#125;啟文件
*
* ?#93;計(姓名 日期): 92.06.24
* 調用方式：
* =shellstart("www.flysmart.com")
* && 連接到網站www.flysmart.com
* =shellstart(“c:\windows\script.doc”)
* && 打?#125;c:\windows\script.doc文件
****************************************************************************************
Function shellstart
Parameters documentname
* 聲明ShellExecute函數
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd
* 指定ShellExecute函數的輸出指向Windows桌面
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow()
* 指定操作命令為"打?#125;"方式
lpszOP = "open"
* 指定ShellExecute操作的物件為 documentname
lpszFile = documentname
lpszParams = ""
* 指定ShellExecute的缺省目錄為c:\temp
*lpszDir = "c:\temp"
lpszDir = ALLTRIM(SYS(5))+ALLTRIM(SYS(2003))
fsshowcmd = 0
* 執行ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP, lpszFile, lpszParams, lpszDir,fsshowcmd)
Return
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
sanchi
註冊時間: 2003-11-11
文章: 61
第 5 樓
|
| 發表於: 星期三 一月 20, 2010 1:41 pm 文章主題: cccc |
|
|
趕快先謝過諸位高手大大
其次才來慢慢研究高手們給的類似天書的東東  |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 6 樓
|
| 發表於: 星期三 一月 20, 2010 9:58 pm 文章主題: |
|
|
奇了,
syntech大大,這回怎麼正經起來了? |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4214
來自: Taipei,Taiwan
第 7 樓
|
| 發表於: 星期四 一月 21, 2010 8:36 am 文章主題: |
|
|
這應該是從本站或是紅狐抄出來的,
用語就像中國傳來的,
沒有公司版權問題
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
sanchi
註冊時間: 2003-11-11
文章: 61
第 8 樓
|
| 發表於: 星期四 一月 21, 2010 10:38 am 文章主題: |
|
|
測試報告
用ie展示:會有一些多餘訊息出現,如是否要開啟...還有既然已在IE,有可能會有user打上url暫時飛出去雲遊一陣才回來
用shellstart沒有上述東東 |
|
| 回頂端 |
|
|
aizz
註冊時間: 2007-01-29
文章: 172
第 9 樓
|
| 發表於: 星期四 一月 21, 2010 10:58 am 文章主題: 雲端?~~ |
|
|
| sanchi 寫到: | 測試報告
用ie展示:會有一些多餘訊息出現,如是否要開啟...還有既然已在IE,有可能會有user打上url暫時飛出去雲遊一陣才回來
用shellstart沒有上述東東 |
雲端?
既然它是未來必然趨勢, 讓大家提早上雲端, 好像也不賴 ~~
 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4214
來自: Taipei,Taiwan
第 10 樓
|
| 發表於: 星期四 一月 21, 2010 11:57 am 文章主題: |
|
|
ie 也是把自己當成container,呼叫shell的open方法.
算起來也是脱褲子放屁.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 11 樓
|
| 發表於: 星期四 一月 21, 2010 12:05 pm 文章主題: |
|
|
用什麼都可以，做到想要旳就行。
用 IE 的好處是程式碼簡單，一行而己！
當然，如果多寫幾行可以多賣點錢，那也是好主意。 |
|
| 回頂端 |
|
|
nelsonchuang
註冊時間: 2003-09-04
文章: 563
來自: 臺灣
第 12 樓
|
| 發表於: 星期四 一月 21, 2010 12:30 pm 文章主題: Re: 雲端?~~ |
|
|
| aizz 寫到: | | sanchi 寫到: | 測試報告
用ie展示:會有一些多餘訊息出現,如是否要開啟...還有既然已在IE,有可能會有user打上url暫時飛出去雲遊一陣才回來
用shellstart沒有上述東東 |
雲端?
既然它是未來必然趨勢, 讓大家提早上雲端, 好像也不賴 ~~
|
雲端好嗎?我實在存疑,把自己的資料放在別人的電腦?
問題如下:
1.以前的小偷,要挨家挨戶去偷,才能偷到好東西,大筆的錢,現在只要去偷集保的銀行,隨便翻,一起翻,再一起偷,收獲更大.
2.如果提供連線的廠商,品質不好,三不五時跟你斷線,(so-net就常這樣),而你公司的資料,都放在雲端,我想你的老闆可能會公幹(公開幹譙)你們Mis,要你們去買直昇機上雲端辦公吧~
3.你怎麼確定,提供雲端的公司,不會說倒就倒,不會坐地起價?不會資料損毀?
雲端?....我覺得出了事的時侯,比較像從天上的雲端摔下來吧~
_________________
大家好,請多指教
nelsonchuang 在 星期四 一月 21, 2010 2:03 pm 作了第 1 次修改 |
|
| 回頂端 |
|
|
sanchi
註冊時間: 2003-11-11
文章: 61
第 13 樓
|
| 發表於: 星期四 一月 21, 2010 1:33 pm 文章主題: |
|
|
| ckp6250 寫到: | 用什麼都可以，做到想要旳就行。
用 IE 的好處是程式碼簡單，一行而己！
當然，如果多寫幾行可以多賣點錢，那也是好主意。 |
一行而已已已已已已已已已已?????
,偶怎麼要寫3行,一比就知偶就是一支遜咖
x2=createobject("InternetExplorer.application")
x2.visible=.t.
x2.navigate("c:\abc\eeff.wmv")
不是這樣子嗎??? |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 14 樓
|
| 發表於: 星期四 一月 21, 2010 10:21 pm 文章主題: |
|
|
RUN/3 "C:\Program Files\Internet Explorer\iexplore.exe" c:\abc\eeff.wmv
這樣不行嗎 ? |
|
| 回頂端 |
|
|
sanchi
註冊時間: 2003-11-11
文章: 61
第 15 樓
|
| 發表於: 星期五 一月 22, 2010 8:02 am 文章主題: |
|
|
| ckp6250 寫到: | RUN/3 "C:\Program Files\Internet Explorer\iexplore.exe" c:\abc\eeff.wmv
這樣不行嗎 ? |
咦!這樣也可以,真的是一行ㄟ
謝謝 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
