1樓：匿名使用者
這裡的關鍵點是使用isdate（）函式判斷輸入的是不是正確的日期時間格式。
如果正確，則使用date語句和time語句設定系統的日期和時間。
**如下：
private sub command1_click()
if isdate(text1.text) then
'設定系統日期和時間
date = format(cdate(text1), "yyyy-mm-dd")
time = format(cdate(text1), "hh:mm:ss")
else
msgbox "輸入時間錯誤！"
end if
end sub
一般的，使用form_load初始化文字框（可選的）：
private sub form_load()
text1.text = now
end sub
ok！這就解決問題了。
這裡的知識點：
1、date 語句 ：設定當前系統日期。
語法：date = date
對於執行 microsoft windows 95 的系統，要設定的 date 必須介於 1980 年 1月 1 日與 2099 年 12 月 31 日之間。對於執行 microsoft windows nt 的系統，date 必須介於公元 1980 年 1 月 1 日到 2079 年 12 月 31 日之間。
2、time 語句：設定系統時間。
語法：time = time
必要的 time 引數，可以是任何能夠表示時刻的數值表示式、字串表示式或它們的組合。
說明：如果 time 是一字串，則 time 會試著根據系統指定的時間，利用時間分隔符將其轉換成一個時間。如果無法轉換成一個有效的時間，則會導致錯誤發生。
3、isdate 函式：返回 boolean 值，指出一個表示式是否可以轉換成日期。
語法：isdate(expression)
必要的 expression 引數是一個 variant，包含日期表示式或字串表示式，這裡的字串表示式是可以作為日期或時間來認定的。
說：如果表示式是一個日期，或可以作為有效日期識別，則 isdate 返回 true；否則返回 false。在 microsoft windows 中，有效日期的範圍介於公元 100 年 1 月 1 日與公元 9999 年 12 月 31 日之間；其有效範圍隨作業系統不同而不同。
2樓：匿名使用者
弄個文字框，然後再用cdate函式來判斷。**：olddate=cdate(text1.
text)if olddate=now() thenmsgbox "時間日期一樣"elsemsgbox "時間日期不一樣"end if
3樓：匿名使用者
需要使用api函式：setsystemtime ，這個函式的功能是設定當前的系統時間。
函式宣告：
delart function setsystemtime lib "keme132" alias "setsystemtime"(lpsystemtime as systemtime) as long
直接呼叫setsystemtime函式，其中lpsystemtime是被新指定的系統時間，例如：
x = setsystemtime(cdate(text1.text))
4樓：壓住我的頭髮了
用什麼vb……不如用e語言
vb中如何用keypress在文字框中輸入字元 並且賦值給給陣列
5樓：匿名使用者
1、必須
滿足的bai條件：du如果文字框是陣列控制元件，宣告的zhi陣列必dao須和文字框內對應；如果文字框不是陣列控制元件，容宣告的陣列必須和文字框的個數相符；如果宣告的陣列是動態的，必須宣告陣列的下標。
2、陣列的宣告(以20個文字框為例)：靜態陣列：dim aa(1 to 20) as string ；動態陣列：
dim aa() as string；在後面定義陣列下標，redim aa(1 to 20)
3、為陣列賦值：
文字框為20個陣列控制元件：
for i=1 to 20
aa(i) = text1(i-1).text
'注意：i-1 是文字框陣列是從0開始的，20個文字框陣列控制元件下標最小為0，最大為19。
'在執行上面語句，文字框的內容賦值給陣列了。
next i
文字框不是陣列控制元件，要逐一賦值，這個就不一一列舉了。
4、如果是將一個文字框的內容分別賦值給陣列，又是另外的情況，需要根據你的要求才能決定，由於不知你是什麼情況，所以不好回答。
在vb中如何用迴圈語句給多個連續文字框賦值
6樓：柴米河畔
dim obj as object, objname as string, i as integer
i = 0
for each obj in me.controls '列舉窗體所有控制元件
debug.print typename(obj)
if typename(obj) = "textbox" then '判讀是否為文字框
i = i + 1
objname = obj.name '獲取文字控制元件名稱,這裡可以根據名稱來判讀賦值，也可以根據其他屬性複製
obj.text = "文字" & i '文字框賦值
end if
next
7樓：匿名使用者
要定義為陣列為全域性變數，或者定義為_root.a;
還在注意賦值後要重新整理一次才會有顯示，可以在場景運動一幀，或者用
onenterframe這個函式，還不知道你要做成怎樣，可以的話留下聯絡方法............
8樓：匿名使用者
使用文字框控制元件陣列試試
9樓：匿名使用者
使用文字框陣列：
for i=0 to text1.uboundtext1(i).text="123"
next
10樓：狂族魔帝
for each fo in me.controlsif typename(fo)="textbox" thenfo.text=rnd ''''賦值
end if
next這樣？
11樓：匿名使用者
用控制元件陣列
for i=0 to ?
text(i).text="???"
next
12樓：施中
for i=1 to 10
txt(i)=........
next
vb文字框1中的字元反序顯示在文字框2中
網海1書生 text2.text strreverse text1.text private sub command1 click dim m as long,t as long,n as integer m val inputbox 輸入大於1的正整數m 輸入資料 n 1 t 0 do while...
vb如何把檔案內容顯示在文字框中
vb6.0可以使用textbok控制元件或richtextbox控制元件實現將讀入文字檔案顯示於控制元件中。textbox 控制元件有時也稱作編輯欄位或者編輯控制元件，顯示設計時輸入的使用者輸入的 或執行時在 中賦予控制元件的資訊。為了在 textbox 控制元件中顯示多行文字，要將 multili...
vb程式 在文字框中輸入點座標（x，y）怎樣從文字框中分離出x，y，並判斷是哪個象限
小陳 建議你用兩個文字框,並設定只能輸入數字,這比從一個文字框輸入後進行文字處理要簡單實用很多,在一個文字框錄入可以寫一個分離函式,原理是 取 到 之間的內容為 x 取 到 之間的內容 y 一個簡單的例項 private sub form load dim x as long,y as long,b...