''Mypic(i).Font = New Font(" Verdana",9.75!,FontStyle.Regular MyPic(i).BackColor = Drawing.Color.Blac MyPic(i).SizeMode = PictureBoxSizeMode.StretchImag MyPic(i).Location = New System.Drawing.Point(Left,Top MyPic(i).Name =" Pic"& ''Mypic(i).Text = rst(" ProductName")。Valu MyPic(i).Location = New Point(660,yAxis MyPic(i).Cursor = Cursors.Han MyPic(i).BringToFront( Me.Controls.Add(MyPic(i) MyPic(i).Image = ImageList1.Images.Item(i AddHandler MyPic(i).Click,AddressOf mypic_clic yAxis = yAxis + 5 + MyPic(i).Heigh Nex 结束Su 需要代码PLEAS THANX提前Hey guys, i have 5 buttons created on runtime, in vb 6.0, each button had a unique index, how is done in vb.net? bellow is the codePrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoaDim i As Integer =Dim myPic(10) as pictureBoDim yAxis As Integer =For i = 0 ToMyPic(i) = New PictureBoMyPic(i).Width = 13MyPic(i).Height = 4''Mypic(i).Font = New Font("Verdana", 9.75!, FontStyle.RegularMyPic(i).BackColor = Drawing.Color.BlacMyPic(i).SizeMode = PictureBoxSizeMode.StretchImagMyPic(i).Location = New System.Drawing.Point(Left, TopMyPic(i).Name = "Pic" &''Mypic(i).Text = rst("ProductName").ValuMyPic(i).Location = New Point(660, yAxisMyPic(i).Cursor = Cursors.HanMyPic(i).BringToFront(Me.Controls.Add(MyPic(i)MyPic(i).Image = ImageList1.Images.Item(iAddHandler MyPic(i).Click, AddressOf mypic_clicyAxis = yAxis + 5 + MyPic(i).HeighNexEnd SuNEED THE CODE PLEASTHANX IN ADVANCE推荐答案在文章< 2F ********************************** @ microsoft.co m>, an*******@discussions.microsoft.com 说。 ..In article <2F**********************************@microsoft.co m>, an*******@discussions.microsoft.com says... 嘿伙计们,我在运行时创建了5个按钮,在vb 6.0中,每个按钮 Hey guys, i have 5 buttons created on runtime, in vb 6.0, each button 有一个唯一索引,怎么样在vb.net中完成? 1)创建一个表单级ArrayList。 2)创建按钮后,将其添加到指定的ArrayList中 指数。示例: myList.Insert(i,myNewButton) 3)在点击事件处理程序中,发件人按钮对象将是按下的按钮 。使用IndexOf和IndexOf。找出哪个按钮的方法 推送: Dim index As Integer = myList.IndexOf(发送者) - Patrick Steele Microsoft .NET MVP http://weblogs.asp.net/psteele *" =?Utf-8?B?V2lsbA ?== = QUOT; <一个******* @ discussions.microsoft.com> scripsit:* "=?Utf-8?B?V2lsbA==?=" <an*******@discussions.microsoft.com> scripsit:嘿伙计们,我在运行时创建了5个按钮,在vb 6.0中,每个按钮都有一个独特的索引,如何在vb.net中完成?下面是代码: Hey guys, i have 5 buttons created on runtime, in vb 6.0, each button had a unique index, how is done in vb.net? bellow is the code: 在Visual Basic .NET和Visual C#.NET中创建控件数据 < http:// msdn。 microsoft.com/library/?url=/library/en-us/dv_vstechart/html/vbtchCreatingControlArraysInVisualBasicNETVisualCN ET.asp> - Herfried K.瓦格纳[MVP] < http://www.mvps.org/dotnet>Creating Control Arrays in Visual Basic .NET and Visual C# .NET<http://msdn.microsoft.com/library/?url=/library/en-us/dv_vstechart/html/vbtchCreatingControlArraysInVisualBasicNETVisualCN ET.asp>--Herfried K. Wagner [MVP]<http://www.mvps.org/dotnet>文章< 5F **** ******************************@microsoft.co m> ;, 一个******* @ discussion.microsoft.com 说...In article <5F**********************************@microsoft.co m>, an*******@discussions.microsoft.com says...很好的例子一个问题,可以你能给我一个关于如何创建表单级ArrayList的示例(代码)吗? thanx Great example one question, could you please give me an example (code) on how to create a form-level ArrayList ? thanx 只需在所有方法之外定义它: 公共类MyForm 继承表格 私有myList As ArrayList = new ArrayList() ... - Patrick Steele Microsoft .NET MVP http:// weblogs .asp.net / psteele 这篇关于指数的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!
09-14 14:37