Panel中
不显示内容? Private Sub star_buku() ....... ....... show_buke(pai_a,790,10,panela) '' '' ''pai_a 为字符串,是用来做排序大小的,用冒泡
方法排序后的顺序. 790,10 是
生成Picture
Box 的最后
一个控件的坐标的x,y panela 为Panel控件的Name show_buke(pai_b,450,panelb) End Sub Private Sub show_buke(ByVal str_buke As String,ByVal x As Integer,ByVal y As Integer,ByVal panel As Panel) panel.Controls.Clear() Dim strs1 As String = str_buke Dim i As Integer Dim strs1nums() As String strs1nums = strs1.Split( ",") Dim strs1_len As Integer = UBound(strs1nums) strs1_len = strs1_len - 1 '' '' '' ''(存在的最大的数从0开始，人为的多创造了一组数=“”) '' '' '' '' '' '' '' '' '' '' '' '' '' ''
显示牌 For i = 0 To strs1_len Dim ss As String = strs1nums(i) Dim pic As New Picture
Box pic.ImageLocation = "buke/ " & ss & ".png " pic.Name = ss pic.Location = New Sy
stem.Drawing.Point(x - i * 30,y) pic.Width = 94 pic.Height = 125 AddHandler pic.Click,AddressOf pic_Click AddHandler pic.MouseDown,AddressOf pic_leftMouse panel.Controls.Add(pic) If i = strs1_len Then Msg
Box(pic.Location.Y) End If Next txt2.Text = strs1 End Sub panela 的这个可以
显示了的 但是panelb 的这个还没有
显示 是为什么呢? 好用
一个按理说貌似第二个也应该可以好用呀,是不是什么地方设置错了呢 找了好半天了,也没找到,还请指教!!! 我就能给上20了最多=_= __________________________________________________________________________ 理解
错误了 酸错坐标了! __________________________________________________________________________ 怎么自己弄出来的也要给自己分的吗??? 我晕=_= __________________________________________________________________________ pic.Location = New Sy
stem.Drawing.Point(x - i * 30,y) panel.Controls.Add(pic) 这里的y 应该是panel里的坐标不是form的坐标 所以没有
显示出来 __________________________________________________________________________ 恭喜楼主
问题解决,接分吧! __________________________________________________________________________ 不让结呀,说是不能自己给自己分 我好象就这20了=_= 刚才又问个问题,结果就没分给了的 唉 __________________________________________________________________________
