這個用VB怎麼實現，VB怎麼實現這個簡單的功能？

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怎麼實現這個簡單的功能？

vb如何實現定時呼叫函式的功能，vb如何實現定時呼叫乙個函式的功能

用vb語言實現，把excel工作簿裡所有工作表的內容移到另工作簿裡，怎麼實現

VB實現ACCESS資料庫記錄的查詢，新增，刪除，修改

其他用戶還看了：