1樓：荀曾顏念雁
檢測事件是在文字框中的change事件中判斷，也就是說只要文字框有改變就檢測！
如果把其中的
and改寫成
or就可以判斷其中一個文字是否為空！
private
subtext1_change()
'判斷文字框最快的速度還是判斷它的長度是否為0iflen(text1.text)=0
andlen(text2.text)=0
then
image5.visible
=false
else
image5.visible
=true
endif
endsub
private
subtext2_change()
iflen(text1.text)=0
andlen(text2.text)=0
then
image5.visible
=false
else
image5.visible
=true
endif
endsub
完美財經網
2樓：檢霽杜鵾
if《條件》then
《語句》
《語句》
...end
if與c語言不同,(vb)的條件語句更符合英語的語法,如果then後面所跟的語句只有一條,可以寫成:
if《條件》
then
不用end
if有時還用到:
if《條件》then
《語句》
else
《語句》
endif
還可以在else裡再巢狀if語句,如
if《條件》
then
《語句》
else
if《語句》
else
《語句》
endif
3樓：樂觀的召喚師
每一層要用end if來結束本層判斷。
4樓：取名字嚴重難
private sub text1_keypress(keyascii as integer)
select case len(text1.text)case 0
if keyascii < 49 or keyascii > 57 then keyascii = 0
case 1
if keyascii < 48 or keyascii > 57 then
if keyascii <> 8 thenkeyascii = 0
end if
end if
case else
if keyascii = 8 then
else
keyascii = 0
end if
end select
end sub
我這個測試了效果很好 在顯示前做判斷
5樓：錯覺
dim a
a=int(a)
a=inputbox("輸入數值")
if a <100
moveto 文字的座標
else
moveto 非文字的座標
endif
6樓：
input "n"
if n＜100
list n
else
wait
7樓：匿名使用者
private sub text1_lostfocus()
if text1.text = "" or isnumeric(text1.text) = false or val(text1.
text) >= 100 then text1.setfocus
end sub
VB中怎麼區分賦值與等號，VB中if語句的條件裡的等號是表示「賦值」還是判斷等號兩邊是否相等。比如if a b 是把b賦給a
邏輯運算中就是等於號，否則就是賦值號。舉例如下 條件 判斷語句中 作為關係運算 比如 if x 2 then while x 2 until x 2 其餘語句中作為賦值 x 2x x 2 vb6.0中關於 號有以下幾類用法 1 比較運算子，用來比較表示式。比較運算子示例 本示例示範各種 比較運算子 ...
關於vb中給變數賦值的語句，vb的賦值語句只能給變數賦值 這句話對嗎
灰原哀柯南君蘭 vb中的變數賦值語句是 a 1b a c b 1 如上，第一句的意思是把 1 賦值給a，第二句的意思是把 a 的值賦給 b 也就是b 1，最後ba b 1 的值賦 c c 2 拓展 vb中定義變數的語句如下 dim 變數名 as 資料型別 如 dim s as integer 定義一...
vb中隱藏工作列的語句是什麼，VB呼叫其它程式，如何隱藏工作列，只顯示內容
vb6.0需要使用windows api函式實現隱藏和顯示工作列。findwindow函式檢索控制代碼到頂層視窗的類名和視窗名稱匹配指定的字串。此功能不搜尋子視窗。該功能不執行區分大小寫的搜尋。iswindowvisible函式檢索指定視窗的可見性狀態。showwindow函式設定指定視窗的顯示狀態...