VFP 愛用者社區

HNcntw · 註冊時間: 2006-05-07 文章: 2 第 1 樓

各位大侠：
VB中调用API实现的程序如下：

GetWindowText

VB声明
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
说明
取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）
返回值
Long，复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
参数表
参数类型及说明
hwnd Long，欲获取文字的那个窗口的句柄
lpString String，预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
cch Long，lpString缓冲区的长度
注解
不能用它从另一个应用程序的编辑控件中获取文字

如何在VFP中实现呢？

garfield · 發表於: 星期日五月 07, 2006 10:56 pm 文章主題:

DECLARE INTEGER GetWindowText IN Win32Api ;
INTEGER lnWindow, ;
STRING @lcText, ;
INTEGER lnLen

Set LIBRARY TO foxtools.fll
lnWindow = _WhToHwnd(_wfindtitl( _screen.Caption))
lcText = SPACE( 254 )
lnLen = GetWindowText( lnWindow, @lcText, LEN( lcText ) )
? lctext

sendera · 註冊時間: 2005-02-20 文章: 23 第 3 樓

題外話:
那裏可以查的到這樣的用語之翻譯(大陸<->台灣)?
如:
窗体=視窗
句柄=????

Orz.........

syntech · 發表於: 星期二五月 09, 2006 12:27 pm 文章主題:

句柄 = handle = 方向盤

小賴 · 註冊時間: 2004-12-27 文章: 476 第 5 樓

nelsonchuang · 註冊時間: 2003-09-04 文章: 563 來自: 臺灣 第 6 樓

老實說:看到小賴貼的,我也很想笑,但是會不會那些大陸同胞看到我們的用法也覺得想笑.我覺得這種東西,還是別再貼了,不然沒完沒了,因為有些用語是因為簡化而來的用語.
就好像說,有人笑: 啊!台灣人你說什麼是唯讀檔啊!笑死人了,我不讀行不行.
不好意思,唯讀檔的本意是只能讀,而不能修改的檔案.
即使如此,不是只有那些大陸同胞看不懂,同樣的也有很多台灣人(不熟悉電腦的人)不懂,就好像是說:為什麼電子郵件地址,我打了我家的地址電腦還收不到信,也寄不出去...

我個人認為(不是那個牛伯伯廣告啊!)只要大家持續的在這個版面或是其它的版面交流下,自然會同意那一種用語會比較好理解及溝通,而統一用語.
個人淺見,不認同者請勿生氣.

ps:Top gun 我聽人家說,大陸是翻成"壯志凌雲"! "好大的一把槍"是台灣人在網路上硬拗出來的,所以不要再以訛傳訛,讓大陸同胞笑我們了.... 有些事,還是求證一下比較好.