廈門大學吳志明教授

Ⅰ VB有關激活控制項問題~~知道的請進

容易，你先把「確定」按鈕的enabled設為false，然後判斷Vscroll的值，如果Vscroll.value=Vscroll.max then command1.enabled=true不就OK了嗎？

Ⅱ VB 如何設置快捷鍵

'以下在模塊中,在窗體調用SetHotKey,或者把SetHotKey中的內容放到窗體
'自己寫的,反正能用,是全局快捷鍵.

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long

Public Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const GWL_WNDPROC = (-4)
Public preWinProc As Long
Public Modifiers As Long, uVirtKey1 As Long, idHotKey As Long

Public Function SetHotKey()
preWinProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC)
SetWindowLong Form1.hwnd, GWL_WNDPROC, AddressOf Keywndproc
RegisterHotKey Form1.hwnd, 1, 0, vbKey1 '注冊熱鍵
RegisterHotKey Form1.hwnd, 2, 0, vbKey2 '注冊熱鍵
End Function

Public Function Keywndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
Select Case wParam
Case 1
MsgBox "1" '熱鍵動作
Case 2
MsgBox "2" '熱鍵動作
End Select
End If
Keywndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

Ⅲ 胡志明父親是廣西武鳴縣人

胡志明是中國台灣人

據《青年參考》報道，大多數中國人對越南民主共和國的奠基人胡志明並不陌生，他與中國領導人締造的中越「同志加兄弟」的時代，至今仍被人懷念。如今，中國許多取名為「志明」的人，據說也是受胡志明的影響。最近，台灣學者拋出驚人觀點：胡志明其實是我國台灣人。那麼，此說可信度如何呢？

1．共產國際做了「移花接木」？

長期以來，胡志明這個響亮的名字帶給許多人的印象是：一顆活躍在20世紀四五十年代國際舞台上的耀眼明星，越南人民心目中的英雄。

據可查資料，身為共產主義革命家的胡志明一生用名奇多：幼年時叫阮生恭，後改名阮必成、阮愛國，化名阿三、胡光、陳民先、李瑞、宋文初等，讓人眼花繚亂。除了越南學者，美國、法國、中國大陸及台灣等地的學者都為他寫就了不同版本的傳記。盡管這些研究者所運用的材料、論述方法不盡相同，但觀點和結論大抵相似——胡志明的一生充滿了太多的謎團。例如，過去大家都知道，胡志明為了越南人民的解放事業終身未婚。但最近幾年學界就在討論，胡志明1926年10月是否曾與一位叫「曾雪明」的廣東女子結婚？

2008年11月，台灣白象文化出版社出版了《胡志明生平考》一書，作者胡俊熊。全書共分五篇，題目分別是：偷龍轉鳳的戲曲、金蟬脫殼真假人生、漂泊流浪的歲月、婚姻戀情的悲歌、漢文《獄中日記》與遺囑及落幕感言。

胡俊熊的觀點是：胡志明與阮愛國不是同一個人。阮愛國是越南人，胡志明實際上是台灣人胡集璋，胡集璋替代阮愛國的「移花接木」之計，是當年的共產國際主導的。胡俊熊認為，阮愛國和胡集璋都是共產國際的黨員，都曾在1929～1932年，服務於共產國際駐上海遠東局。1890～1932年的胡志明是阮愛國。而1933～1969年的胡志明是台灣人胡集璋。

在書中，胡俊熊利用搜集的史料和解密檔案，對比一些胡志明研究的專著以及一些親身所得信息，力圖證實「真正的越南人阮愛國早在1932年病亡，1933年後的胡志明，其實是來自台灣苗栗的客家人胡集璋」。令人看後瞠目結舌！

2．一家之言引起百家「爭鳴」

胡俊熊自稱他並無政治或商業意圖。但胡俊熊此書出版後，在越南國內、法國和美國越裔社區引起了不同程度的反響，有人與作者聯系，邀請他到美國演講，甚至還有人要求得到出版該書英文版的授權。

胡俊熊說，據他了解，有的越南人對他的觀點並無抵觸情緒，因為現在越南與台灣兩地的經濟聯系緊密，越南民眾更關心經濟發展的問題，甚至有越南民眾認為，兩地有「親戚」關系也是件好事。

胡俊熊此說與越南官方的說法明顯不符，但越南官方目前尚未對此予以回應。至於越南官方是不知道此說，還是覺得太過荒謬，沒有反駁的必要，那就不得而知了。

不過，民間質疑的聲音還是不少。首先，作者出書的動機就很可疑。按照作者自己的說法，他努力證明「此胡非彼胡」，動機只為完成父親遺願，「還叔父胡集璋以真實身份」。這種典型的結論先行，從學術研究的角度上看，是很不可取的。

另外，作者雖然畢業於台灣大學歷史系，但他此前的作品只涉及「易經」、「風水」等「玄學」，其考證功夫也讓一些讀者不服氣。有人批評該書證據不充分，或是對證據的解釋不清。有些讀者甚至懷疑承印該書的出版社質量和作者本身的資歷。

以下就簡單介紹書中最具爭議的幾個要點。

3．焦點之一：1932年阮愛國真死了嗎？

這是一個關乎1932年前後的「胡志明」是不是同一個人的關鍵問題。

在書中，胡俊熊根據對阮愛國病史的追溯，證實胡志明「常年罹患肺結核」，連他本人都承認自己身體虛弱，乃至到了20世紀30年代初對公務心有餘而力不足。此外，作者還引用了不少當年的第一手資料（包括官方記載資料，如法國安全警察在1933年的阮愛國檔案中，註明了「阮愛國病亡」），指出以下幾點：1931年6月阮愛國在香港被捕。1932年初，阮愛國在香港獲得釋放，前往新加坡。1932年初，阮愛國在新加坡再度遭逮捕，遣返香港拘留。香港各大媒體，曾對此進行報道。隨後，傳出阮愛國神秘失蹤的消息。後來的港、英、法、蘇聯等地的一些報紙刊登其逝世消息，莫斯科東方大學的越南學生還為這名革命家舉辦了葬禮和追悼會，此後阮愛國銷聲匿跡近10年。直到1941年6月6日，胡志明首次以阮愛國身份發表《號召全國同胞書》，欲引領越南人民為走向獨立而革命。

胡俊熊認為：這是共產國際高層的「移花接木」之術。他認為共產國際通過製造一系列假信息：如1932年春「潛逃至廈門養病半年」、1933初「從上海前往莫斯科」、1933年「阮愛國與法國友人保羅·瓦揚古久里在上海見面」等。

但胡俊熊認為，根據胡志明自己所言，他是1933年初到的廈門，這與官方製造的「假信息」明顯不符。至於現存的1932～1941年有關胡志明的資料，則都是「事後追述補足的資料」。

而反對胡俊熊觀點的人，則相信之所以存在1932年阮愛國「病亡」以及各方報道資料，是因為「阮愛國為逃避法國特務追捕」而「故意編造的假消息」。阮愛國在20世紀二三十年代已是越南具有較大影響力的革命領導人，要製造出這樣的假消息也不是什麼難事，個中詳情雖不為外人所知，但胡俊熊既然相信各方有能力導演「移花接木」，那為保住革命領導人而導演「起死回生」不也一樣可行么？恰恰因為阮愛國的影響力很大，所以學生根據媒體和官方報道，出於尊重和緬懷隕落的革命之星，舉辦追悼會正是人之常情。另外，胡志明一生去過多個國家的多座城市，即便他本人多年後的追憶有些差錯，也再正常不過。

4．焦點之二：中文能力何以突飛猛進？

美國威廉·杜克教授潛心研究胡志明生平，他所寫的《胡志明傳》（2001年出版）和美國天普大學副教授蘇菲·昆所著的《胡志明消失的歲月：1919～1941》（2003年出版），都提到胡志明有一段神秘消失的歲月。

胡俊熊根據這兩本書，整理出早年阮愛國學習漢語的經歷，並據此認為活到1927年的阮愛國所具備的中文聽說讀寫能力都很有限，而1927年後的阮愛國又四處遊走加上疾病纏身，怎麼會有時間、精力去學漢語，並寫出《獄中日記》這樣高水平的中文作品？而胡志明的中文書法水平之高，就更讓人難以置信了。另外，胡俊熊還說，《獄中日記》的作者應該是客家人。

然而，反對者的眼光同樣很犀利。針對胡俊熊對阮愛國中文能力的懷疑，反對者認為，簡單憑借一些文獻去判斷阮愛國的中文能力太過武斷，自1911年到1930年間，阮愛國完全有能力自學中文，而非一定得靠學校教育和一些人的指導才能提高中文造詣。再說，胡志明具有很高的語言天賦，又長期在中國生活，與之交往的中國革命者文化水平很高，即使他的中文突飛猛進，也不奇怪。

而胡俊熊所下的「《獄中日記》乃客家人所作」的論斷，同樣值得懷疑，因為其中一些所謂「客家方言轉成的獨特文字」，如「籠」、「洗面」等，也是越南語中的常用語，況且胡志明《獄中日記》中所體現出來的一些拆字游戲、中國歷史典故以及一些名人詩篇也並不深奧，因此並不一定要精通中文的客家人才能寫出《獄中日記》。

此外，該書還涉及對胡志明私人感情和流離經歷的一些爭論。限於篇幅，在此就不一一介紹了。

5．該書作者也沒十分把握

其實，胡志明作為一名顛沛流離的革命者，在其人生中有一些模糊不清的謎團應算正常。

早在20世紀90年代胡志明詩集出版之時，一名加拿大越僑黎友牧曾表示，《獄中日記》並非胡志明之作。但黎友牧拿不出有力證據予以論證，因此當時人多數認為黎友牧是在捕風捉影。但胡俊熊此書與之相比，應該說是進了一步。畢竟，書中提供了一些史料，並予以論證。從學術研究的角度，胡俊熊在該書中的論證方法有可質疑之處，但也對後來的研究者有不少啟發，有助於胡志明研究的進一步深入。

有人認為，胡俊熊此書雖缺少一些直接證據，但也提供了不少間接論據。但看過該書的人，多數還是很難認同胡志明就是我國台灣的胡集璋，因為連胡俊熊本人都沒有十分把握。

Ⅳ 黃世忠的人物簡介

黃世忠（1962.9— ）南安人。廈門國家會計學院副院長、廈門大學會計系教授、博士生導師。
2012年8月8日，大會經無記名投票選舉吳志明為民建福建省第八屆委員會副主任委員。

Ⅳ vb里怎麼結束系統關鍵進程

首先要提升程序的許可權，然後就可以了
冰刃之類的系統輔助工具就是提升了許可權

Ⅵ VB修改批量文件名

如果要給你做成,那不太可能 你這個功能不是太難,但代碼量也是不小的
我就給說下關鍵過程吧!
文件命名: name(oldpath,newpath)'都有文件名的
得到指定目錄所有文件 dir(path[,類型吧])[這個在得到全部目錄時,應先把目錄內的路徑先存放到數組內,且不可調用其它過程,函數
得到文件的日期 1: API 函數 openFile/GetFileInformationByHandle/CloseHandle/GetTimeZoneInformation/FileTimeToSystemTime\也許有其它的API
2:FSO
具體的文件名合成,那就是字元串處理了

Ⅶ vb移動文件

不知道你「預先准備好的文件」是什麼意思，是一個文件夾下的所有文件呢，還是不一定同一個文件夾的幾個文件。如果是不一定同一個文件夾的幾個文件的話，用一下代碼就好了：
Private Sub Command1_Click()
FileCopy "C:\Temp\FILECOMP.exe", Text1.Text & "\FILECOMP.exe"
FileCopy "C:\Temp\1.exe", Text1.Text & "\1.exe"
FileCopy "C:\Temp\2.exe", Text1.Text & "\2.exe"
FileCopy "C:\Temp\3.exe", Text1.Text & "\3.exe"
FileCopy "C:\4.exe", Text1.Text & "\4.exe"
End Sub

==================================================
如果你要的是從一個文件夾里復制所有文件都指定目錄，那復制如下代碼（添加一個textbox,一個按鈕，一個模塊，有的代碼放模塊里）：

'*************************************************************************
'**模 塊 名：窗體代碼
'**說 明：廈門大學化學系 版權所有2009 - 2010(C)
'**創 建 人：吳志明
'**日 期：2009-02-27 16:23:20
'**修 改 人：
'**日 期：
'**描 述：
'**版 本：V1.0.0
'*************************************************************************
Private Sub Command1_Click()

CopyFiles "C:\Documents and Settings\new\桌面\文件遍歷", "", "" '此處路徑即為你要復制源文件的路徑

End Sub

'*************************************************************************
'**模 塊 名：模塊代碼
'**說 明：廈門大學化學系 版權所有2009 - 2010(C)
'**創 建 人：吳志明
'**日 期：2009-02-27 16:23:46
'**修 改 人：
'**日 期：
'**描 述：
'**版 本：V1.0.0
'*************************************************************************
Public Const MAX_PATH = 260
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Public Sub CopyFiles(strRootFolder As String, strFolder As String, strFile As String)

Dim lngSearchHandle As Long
Dim udtFindData As WIN32_FIND_DATA
Dim strTemp As String, lngRet As Long

strRootFolder = strRootFolder & "\"
'給出第一個文件句柄
lngSearchHandle = FindFirstFile(strRootFolder & "*", udtFindData)

'如果無效時退出
If lngSearchHandle = INVALID_HANDLE_VALUE Then Exit Sub

lngRet = 1

Do While lngRet <> 0

'去掉空格
strTemp = TrimNulls(udtFindData.cFileName)

If (udtFindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
'為目錄時什麼也不做
Else
'為文件時
FileCopy strRootFolder & strTemp, Form1.Text1.Text & "\" & strTemp
End If

'給出下一個文件或目錄句柄
lngRet = FindNextFile(lngSearchHandle, udtFindData)

Loop

Call FindClose(lngSearchHandle)

End Sub

Public Function TrimNulls(strString As String) As String

Dim l As Long

l = InStr(1, strString, Chr(0))

If l = 1 Then
TrimNulls = ""
ElseIf l > 0 Then
TrimNulls = Left$(strString, l - 1)
Else
TrimNulls = strString
End If

End Function