1樓：湘湖泛舟
private sub command1_mousemove(button as integer, shift as integer, x as single, y as single)
dim myvalue
randomize
myvalue = int(((rnd) +1) '生成 窗體高度內的一個隨機數值。
= myvalue
randomize
myvalue = int(((rnd) +1) '生成 窗體寬度內的一個隨機數值。
= myvalue
end sub
在滑鼠移到按鈕上的時後move事件發生，隨機生成一個新的位置，把按鈕移動到那裡去。
2樓：dl_會飛的青蛙
只有一個簡單的事件！~mousemove
只不過自己算一下就可以了！~
有興趣就自己做吧！~ 很簡單的！~
3樓：匿名使用者
有個思路，通過滑鼠的位置來判斷，如果小於某個值，就move按鈕。
關於vb程式設計的小問題
4樓：匿名使用者
這個問題你問的比較到位。
在vb裡面，子窗體和父窗體之間有一個選單是否重疊的設定。你可以進行選擇當子窗體最大化是，子窗體的選單是否和父窗體的重疊。
焦點，就是當前的活動物件，也就是說，如果有3個文字框，當你把滑鼠點到第二個上時 ，你輸入的內容就會在第二個顯示，而其他兩個不會有反應，這個時候其實就是第二個是獲得了當前焦點。
不清楚可以繼續提問。
如果你選擇了子窗體選單覆蓋父窗體選單，那麼子窗體選單就會出現在父窗體選單的位置，如果你選擇了重疊，那就是重疊在父窗體選單的位置，總之，就是出現在父窗體選單的位置。
5樓：匿名使用者
1、子視窗的選單顯示位置，當然在子窗體的選單欄上了。在vb裡面的多視窗模式下，子視窗的選單可以放在父視窗的選單欄上。如果是右鍵選單，會在滑鼠右鍵點選的位置旁邊，具體是哪邊由系統自動控制，反正是儘量讓你的選單放在能看得見的地方。
2、焦點可以理解為讓滑鼠和鍵盤輸入的地方。如果一個視窗獲得焦點，那麼你操作滑鼠和鍵盤，這個視窗的程式就可以直接接收到。如果一個文字框獲得焦點，你輸入鍵盤，內容就會被這個文字框接收到。
6樓：
getfocus
焦點 就是你準備點選的地方或者指示的地方。
子窗體有自己的選單 選單的位置不會因為焦點而改變。
關於vbs程式設計的一些問題
7樓：網友
vbs是一種基於vb語言的指令碼程式設計方法，你也可以叫他是一種程式語言。所以如果你已經有很好的vb基礎的話是很容易學的，不過你學過c++也不錯因為計算機各種程式語言都是有相似之處的。學會vbscript指令碼你就可以製作一些高階或者低階的指令碼程式完成自動處理功能，比如說過去網上流行的「不說我愛你就關機」指令碼，這些都是很簡單和低階的。
而且學會vbscript你就基本可以編寫asp網頁（這可是目前應用相當流行的網頁哦），而且可以方便你更好的學習和認識vb語言（相信你如果在c++的基礎上學會了vb語言就更不錯了，呵呵）。
我前段時間學習過這種指令碼，很有意思，剛開始感覺很簡單後來感覺越學不懂的越多。至於這方面的書確實不太多，我看過一本很不錯的《vbscript程式設計師參考手冊》是一本紅皮書。還有一些我學習時用過的一些電子資料，你要的話我發給你。
8樓：**聖使
我學vbs也沒有看啥書啊，只是下了個"vbscript 語言參考 .chm"和"vbs指令碼程式設計簡明教程之一。doc",看了個大概。
編寫vbs用的是"vbsedit ",其實它也是一個很好的教程。
關於vb的小問題
9樓：
setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。
h是16進位制數字的開頭。寫在" "裡面表示加上&h這兩個字元竄。如加號後面的數值=5的話，setmynum就等於val(&h5)這個意思。
號後面的mid（sur,11+4*1,4）是取值的函式，sur表示從sur這個變數裡面取值，中間的表示從第幾項開值取值，（從第一項開始數，第一個數為第1項，不是從0開始數）最後面的4為取幾個數，上面如果sur=12345678901234567890的話，而且i 等於1的話setmynum就等於取第15個數開始的後4個數字。就是5678，最後前面加上引號裡的字元，完整的就是，setmynum=val(&h5678)最後結果為 setmynum=22136.因為16進位制的&h5678轉化為10進位制的val就是22136
10樓：匿名使用者
val函式將數字字元轉成對應的數值，字元前面加"&h"是將其作為十六進位制處理。mid(sur, 11 + 4 * i, 4)裡面是從sur第11 + 4 * i個字元處開始取四個字元出來。
vb程式設計問題
11樓：匿名使用者
有一個 locked屬性，設為true,就不能被了有一個 maxlength屬性，用來限制文字框可輸入字元的長度，你設成8,它就只能輸8個字；設成10，就只能輸10個字。
設為0就是沒有長度限制。
但你這個情況必須不斷試才能得到這個具體的值，因為不同的字號，不同字型，相同一個文字框能容納的字元數也是不同的。但也不算麻煩啦是不？
3.這個可以用keyup（或者keydown)來實現，但是如果有文字框的話還是不推薦，你可以在command1的caption上做手腳，相信你用軟體的時候常見到各種帶下劃線的字母，比如（確定 下劃線 o) (是 下劃線y) (檔案 下劃線f) (工具 下劃線t) 帶下劃線加字母的意思就是，你按alt+那個字母，效果等同滑鼠點選那個按鈕。vb裡也可以，不過只能用alt+ 一個字母的形式做快捷鍵啦。
還是用例子說吧，你的command1要用alt+x來做快鍵，就在caption的屬性里加 &x ，它就能出現一個帶下劃線的x。加 &y 就是帶下劃線的y。你可以再試試。
這樣設的好處是，**都省了。
12樓：網友
1、把「locked」屬性設定為「true」
2、設定「maxlength」（最多輸入的字元數）
3、form_keydown裡，使用command1_click相當於按下command1
13樓：匿名使用者
1、把textbox1控制元件的locked屬性設為true。
2、根據你textbox控制元件的大小設定控制元件的maxlength屬性，即控制元件的最大字元。
3、最簡單的是設定控制元件的default屬性為true,就是按回車就=點了此按鈕。
關於vb的問題
14樓：杜琳禕
str()的作用是將數字型變數或常量改變成字元型變數或常量，舉例如下：
對於常量：str(35)="35 ",str(" 以此類推。(注意字串" 35"的前面有一個空格。
對於變數：則把變數的值變成字串，如：假定a ＝287，則str(a)="287 ",以此類推。（注意前面也有空格）
對於你說的str(abc)，因為abc不是數字，所以vb系統就把它當成變數abc，就去調abc的值，因從未對abc賦值，系統預設為0，所以就把那個0轉化成字串了，?str(abc) 就列印出字串" 0"（前面有一個空格）。
綜上所述 str(""注意 前面有個空格。
15樓：匿名使用者
不懂嗎？ 我解釋一下。
len()是取位元組長度 "3212" 長度是4 所以 開頭是4然後str()是強制轉換 原本是浮點形的 轉換成了字元型之後是 4+字元型的 就是4 88.
8 然後用str強制轉換成了字元型 所以 b 4 出來是字元型的。
我的部落格：
16樓：網友
我認為應該是a 因為是字串連線呀 不是數值相加 怎麼回事b呢 不可能有空格的。
17樓：匿名使用者
str是將數字轉換為字串。
用在兩個字串之間，它的作用相當於字串連線符 &樓上的你看看 msdn 對str的介紹就知道為什麼會有空格了當用str將一數字轉成字串時，總會在前頭保留一空位來表示正負。如果 數字 為正，返回的字串包含一前導空格暗示有一正號。
所以是b,不是a
如果沒有使用str進行轉換，那結果就是你說的。
18樓：匿名使用者
private sub command1_click()
dim warning as string
dim sql as string
warning =
輸入有效性判斷。
if textuser = then warning = warning & 使用者名稱 "
if textpassword = then warning = warning & 密碼 "
if warning <>then
msgbox warning & 不能為空值！",0 + 48 + 0, "警告"
textuser =
textpassword =
elsesql = select * from 使用者管理 where 使用者名稱 ='textuser & and 使用者密碼 ='textpassword &
sql = select * from 使用者管理 where 使用者名稱 ="textuser & and 使用者密碼 = textpassword &
openrs (sql)
if not ( and then
grade = rst("使用者等級") 記錄使用者等級。
userid = rst("使用者名稱") 記錄使用者名稱。
call userlogin '填寫登陸記錄。
= true
unload me
elsemsgbox "該使用者不存在！",0 + 32 + 0, "登陸失敗"
textuser =
textpassword =
grade = 0
end if
closers
end if
end sub
關於vb.的一些問題。
19樓：匿名使用者
"21/2/2012" 是字元型常量，所有 「 限界符內的，都被認為是字元表示式。
e-12 不符合vb變數命名規則，會被認為是 e 減 12。
a、100 '100 的十進位制表示。
b、％0100 '錯的，正確應為 100%c、&h100 『256 的十六進位制表示。
d、&o100 』64 的八進位制表示。
由於。a=2
b="abc"
c="acd"
ab=c → flasea
20樓：匿名使用者
e-12是符合要求的變數名。 e-12在vb裡預設表示10的負12次方，第一題不懂。
這兩句話分別錯在**？
下面（ ）是不合法的整型常數
答案是b，求為什麼。 『c和d是用十六進位制表示的整型變數。
如果變數a=2,b="abc",c="acd"則表示式a
問關於VB的問題，問一個關於VB的問題
執行順序如下 注 帶有 的是被執行的語句，後面的數字是被執行的順序。x 0 1 for i 1 to 10 2if i mod 2 1 then 3x x 1 4 else x x 1 end if 5 exit for 6 問題就出在這裡 你退出掉迴圈幹嘛 next i print x 7 結束所...
一個vb控制元件的問題，關於VB模組的問題
在窗體上新增兩個命令按鈕，將第二個命令按鈕command2的index屬性設定為0,下面的 實現點選command1按鈕，將新增一個按鈕，並自動排列。option explicit 輸出十個命令控制元件。dim i as integer private sub command1 click i i ...
VB的一個問題，這是VB的一個問題？
sub func l as label,byval a as integer 此處i為label控制元件，a為一個byval 傳值變數 傳過來不傳回去的那種變數 1234 給label控制元件的內容賦值為 1234 即。a a a 此處計算確實得到變數a的平方，但是並沒有把值傳回去。end sub ...