1樓：酈秋奚綸
樓主連程序和執行緒都沒搞清楚怎麼做~~~
一個程式只能有一個程序,而一個程序可以多執行緒...
你想實現程序相互監視,必須得做2個exe程式互相監督,這個比較簡單,不停重新整理工作管理員來獲取當前的程序有沒存在指定程序即可,如果不存在則開啟就ok.
開機啟動寫下登錄檔就好了~~~
隱藏工作列需要把自己的程式註冊為一個系統服務,也是通過登錄檔操作的附帶一句:如果你想用vb寫木馬,一個字--難,首先執行vb需要有vb6.dll的環境支援,同時你如果想你做的程式在大多數電腦上都能執行,你必須一個控制元件都不能用,一切全api程式設計才有可能實現,不然你想你編出的程式在別人機子上執行,你還得打包個幾m的東西發給他,和他說下"我這個是病毒,我要搞你機子,麻煩你安裝下#$%^".
2樓：後夕容己
標點半字元和全字元建議用lenb()函式可準確測量，不能用len()去測量。
必須用microsoft
rich
textbox
control控制元件，不然無法實現文字中區域性變色效果。
變色**如下：
richtextbox1.selstart=richtextbox1.selstart-1richtextbox1.
sellength=1richtextbox1.selcolor=vbred
richtextbox1.selstart=richtextbox1.selstart+1richtextbox1.
sellength=0richtextbox1.selcolor=vbblack
3樓：穰恆仉錦
在text
的change事件裡判斷，text2的第i個數字是否和text1的對應，對應就過，不對應text1顯示紅色，換行的地方，判斷一行有多少個數字，遇到數字的倍數增加一行隨機數字，第一行去掉
vb怎麼實現這個簡單的功能？
4樓：匿名使用者
private sub form_load()list1.list(0) = " 張三"
list1.list(1) = " 李四"
end sub
private sub list1_click()select case list1.listindexcase 0
text1.text = "6/5"
case 1
text1.text = "7/8"
end select
end sub
我用的是listbox控制元件
5樓：荔菲彭澤
注意要把combo1.sorted屬性設為false
private strnames, strbirth as variant
private sub combo1_click()
text1.text = strbirth(combo1.listindex)
end sub
private sub form_load()
dim i as integer
'# 設定combo1和text1
combo1.text = "" '清空combo1文字
text1.text = ""
'# 初始化陣列
strnames = array("小紅", "小明", "小黃") '這裡輸入姓名
strbirth = array("3.1", "4.5", "5.6") '這裡輸入生日 （注意姓名和生日對應）
'# 向combo1中新增專案
for i = 0 to ubound(strnames)
combo1.additem (strnames(i))
next i
end sub
6樓：匿名使用者
private sub combo1_change()if combo1.list(combo1.listindex) = "條件" then
text1.text = "內容"
end if
end sub
private sub combo1_lostfocus()combo1.additem combo1.textend sub
7樓：換號多次
private sub combo1_change()
text1.text = combo1.text
end sub
vb如何實現這個功能？
8樓：匿名使用者
private sub combo1_click()if combo1.listindex = 0 thentext1.enabled = true
text2.enabled = falsetext3.enabled = falseend if
if combo1.listindex = 1 thentext2.enabled = true
text1.enabled = falsetext3.enabled = falseend if
if combo1.listindex = 2 thentext3.enabled = true
text2.enabled = falsetext1.enabled = falseend if
end sub
private sub form_load()combo1.clear
combo1.additem "文字1", 0combo1.additem "文字2", 1combo1.additem "文字3", 2end sub
9樓：尼歐趙
建立一個文字框控制元件組：
private sub combo1_click()text1（0）.enabled = falsetext1（1）.enabled = falsetext1（2）.
enabled = falsetext1（combo1.listindex）.enabled = true
end sub
private sub form_load()combo1.additem "文字1", 0combo1.additem "文字2", 1combo1.
additem "文字3", 2combo1.listindex = 0
end sub
------
如果有n個選項，則用迴圈來實現
for i=0 to n
text1（i）.enabled = falsenext
怎麼用vb實現這樣的功能？ 20
10樓：匿名使用者
要實現這個功能並不需要用程式，你只要把伺服器裡的19個資料夾設定成完全共享，客戶端要上傳檔案只要把檔案複製貼上到伺服器上自已的資料夾中就行了。如果要增加安全性，那就在設定共享時增加訪問密碼。
11樓：匿名使用者
去網上搞個免費的區域網管理軟體吧,自己設定下搞定,自己做最簡單的至少的三天
這個怎麼用vb實現
這題用vb怎麼實現，求詳解
12樓：寒信
private sub command1_click()
dim i as integer, j as integer, str as string
for i = 1 to 9 '1至9行
for j = 1 to 9 '1至9列
str = 5 - abs(j - 5) '計算條i行條j列要輸出的數字
if int(str) < abs(i - 5) + 1 then str = " " '如果要輸出的數字小於abs(i - 5) + 1，則輸出空格
print " " & str; '輸出。後面的分號表示接著上次輸出的位置輸出。
next j
print '換行
next i
end sub
13樓：紫薇參星
按照你的要求編寫的vb語言的數字菱形的程式如下(**寫在按鈕的click事件中,abs函式是求絕對值的函式)
private sub command1_click()
dim n,m,i,j as integer '定義用到的變數
n=5 '上半部列印5層
for i = 1 to 2*n-1 '共列印2*n-1層菱形
for j=1 to abs(n-i) '列印每行菱形前面的空格
print " ";
next j
m=abs(n-i); '為m變數確定每行的起始值
for j=1 to 2*n-1-2*abs(n-i) '列印每行菱形的數字
if j<=n-abs(n-i) then '如果j小於中間值n-abs(n-i)就m+1列印每行前半段,否則m-1列印每行後半段
m=m+1;
print m;
else
m=m-1;
print m;
end if
next j
print '列印換行
next i
end sub
怎麼在VB的標籤裡實現換行,在VB中怎麼怎麼設定label自動換行
有兩種方式復 制1 編寫 實現 換行 bai label1.caption 第一行內容du vbcrlf 第二行內容 vbcrlf就是zhi一個回車符,dao實現換行 2 編輯label的屬性,實現自動換行 將autosize 設定為false,將wordwrap設定為true,此時在caption...
VB用核取方塊怎麼實現多條件的查詢
樓主說 問題補充 我要的不是if check1.value 1 and check2.value 1 then 這種的，窗體有很多核取方塊，用這種的話，麻煩的不行,要把每種選擇搭配的可能都來個if.我要一個簡便的方法 這完全是需用 if then elseif then elseif then en...
vb怎麼用，vb程式碼怎麼用
private sub timer1 timer if i 0 then print 我是中國人 end if if i 1 then print 中國人 end if if i 2 then print 中國vs小日本 end if i i 1 end sub 我給你的 就是放一個銨鈕一個計時器 ...