請高手幫忙解決VB的list問題

2022-07-06 21:20:03 字數 1531 閱讀 4892

1樓:vb妮可

新建工程,2個窗體..form1是主窗體,也就是實現你這些功能的**放置的地方..而form2就是你想彈出窗體的樣子(如果你想彈出來的窗體都是這個樣子的話)..

form1的**: (雙擊列表項,開啟對應個數的form2)sub newform(s$)

dim a as form2

set a = new form2

a.caption = "新開窗體" & sa.show

end sub

private sub form_load()dim i%

for i = 1 to 100

list1.additem i

next

end sub

private sub list1_dblclick()dim i%

for i = 0 to list1.listindexnewform (cstr(i + 1))next

end sub

2樓:匿名使用者

i=i+1 去了,偶數也顯示

3樓:匿名使用者

去掉 i = i + 1

"並且開啟的是窗體相同但內容不同的視窗"是什麼意思?

是要通過**建立窗體還是開啟已有窗體?

那個if巢狀層數太多了,建議使用

if ... then

...elseif then

.elseif then..

.else

.end if

或select case

4樓:匿名使用者

sub newform(s$)

dim a as form2

set a = new form2

a.caption = "新開窗體" & sa.show

end sub

private sub form_load()dim i%

for i = 1 to 100

list1.additem i

next

end sub

private sub list1_dblclick()dim i%

for i = 0 to list1.listindexnewform (cstr(i + 1))next

end sub

5樓:匿名使用者

問題能否說得更詳細一些,開啟的新窗體要實現什麼樣的效果

6樓:

1:你的問題可以涉及到動態建立窗體,你可以參考這裡的文章

2:可以在開啟的窗體上的form_load事件(該事件是在被顯示的窗體中)中新增相關判斷**(list1存放在form1中)

if form1.list1.text="1" then'在本窗體中實現一些操作

elseif form1.list1.text="2" thenelseif ......

end if

關於ASP的大問題,請高手幫忙解決,謝謝

你把這兩句調換一下順序 sql select from cadre info where useruserid set rs server.createobject adodb.recordset 然後把rs.open sql,conn,3,2改成rs.open sql,conn,1,1 if re...

尋高手解決的電腦問題,求電腦高手解決電腦問題

有可能是顯示器和解析度的問題。肯定是你的其他軟體佔用的資源。你開啟任務管理器看下效能cpu使用記錄那裡的變化如何。如果一直處高,那麼肯定有什麼異常軟開一直卡。那麼你再看系服務那裡各個程序佔用了cpu資源的情況。把除了系統檔案的,其他佔用率高的把它關了就行了。如果再不行酒更新下顯示卡驅動。如果更新顯示...

vb 核取方塊的問題!高手請指教!

搞不了,留個腳印看誰那麼牛能搞定。vb關於核取方塊的問題,求教!創10個checkbox,名字是c 0 c 1 c 9 caption分別為0,1 9,如下,是關於大項c click 的 for a 0 to 9 if c a value true then caption next a 完成!fo...