巨大的困难，求高人指点迷津啊！_vb.net吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：3,878贴子：
巨大的困难，求高人指点迷津啊！收藏
最近我自学vb.net，虽然入门。但是对于代码还没有一个全局的认识。甚至不知道代码的书写逻辑，尤其是做了下面的例子后。我发现，好多与Publis有关的代码部分，顺序可以调换，而且仍然运行正常。下面的这个例子，是我最近这几天的学习情况。代码的每个部分我都模糊的理解一二，但是把这些放到一块。我就完全不要之所云了。我也不知道接下来该怎么进行学习。因为，我突然觉得好乱。尤其是这里面讲到得结构和**的问题。好多名词还没有概念，比如：item属性，内容显示在字段中？这些种种，下面的代码如果各位看着很乱就不要费神了。就关于vb.net指点一下对于整个代码的认识该怎么学习或者理解就行？谢谢了，我真力不从心！以下是代码：—————————————————————————————————————————Public Class Demo Inherits System.Windows.Forms.Form
Private _customers As New customercollection()
Public Class customercollection
Inherits System.Collections.CollectionBase
Default Public Property item(ByVal index As Integer) As Customer
Return Me.List.Item(index)
Set(ByVal value As Customer)
Me.List.Item(index) = value
End PropertyPublic Sub add(ByVal newcustomer As Customer)
Me.List.Add(newcustomer)
Public Sub remove(ByVal removecustomer As Customer)
Me.List.Remove(removecustomer)
Public Structure Customer
Public Firstname As String
Public Lastname As String
Public Email As String
Public Function lsempty() As Boolean
If Firstname = "" Then
Return True
Return False
End Function Public ReadOnly Property Name() As String
Return Firstname & " " & Lastname
End Property
Public Overrides Function tostring() As String
Return Name & " (" & Email & ")"
End Function
End Structure
Public Function CreateCustomer(ByVal firstname As String, ByVal lastname As String, ByVal email As String) As Customer
Dim newCustomer As Customer
newCustomer.Firstname = firstname
newCustomer.Lastname = lastname
newCustomer.Email = email
_customers.Add(newCustomer)
lstCustomers.Items.Add(newCustomer)
Return newCustomer
End Function
Public Sub DisplayCustomer(ByVal customer As Customer)
txtName.Text = customer.Name
txtFirstName.Text = customer.Firstname
txtLastName.Text = customer.Lastname
txtEmailName.Text = customer.Email
Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
CreateCustomer("Amir", "Aliabdi", "")
CreateCustomer("todd", "mark", "")
CreateCustomer("ling", "er", "")
Public ReadOnly Property Selectedcustomer() As Customer
If lstCustomers.SelectedIndex && -1 Then
Return _customers(lstCustomers.SelectedIndex)
End Property Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles lstCustomers.SelectedIndexChanged
DisplayCustomer(Selectedcustomer)
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
btnDelete.Click
If Selectedcustomer.lsempty = False Then
If MessageBox.Show("Are you sure you want to delete " & Selectedcustomer.Name & "?",
"Structure Demo", MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
= DialogResult.Yes Then
Dim deleteCustomer As Customer = Selectedcustomer
_customers.remove(deleteCustomer)
lstCustomers.Items.Remove(deleteCustomer)
MessageBox.Show("You must select a customer", "Structure Demo")
End SubEnd Clasee
同求 Return customers(lstCustomers.SelectedIndex)
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求高人用VB或者VBA在EXCEL里编一个小程序, 求高人用VB或者VBA在EXCEL里编
求高人用VB或者VBA在EXCEL里编一个小程序 问题补充：
经纬度相同不是经度和纬度这2个相同，而是经纬度的组合相同，也就是地理坐标相同。 10-6-28 求高人用VB或者VBA在EXCEL里编一个小程序
晕，你把一个sheet页当做数据的一张表，直接使用ADO连接Excel，一条SQL语句就出来了
不用编程 如要vb程序，然后选择查询，再复制到新excel中就可以了或者将excel链接到access表中
直接用excel的函数就可以了，大致的思路是if（精度=维度，精度+维度+产量，空白）
说详细点,应该可以实现的VB 要计算一个很繁琐的计算?求高人指点啊0-10的数,我随便指定一个数字
比如我选择了8
那么8-2 变成了6
在拿6进行相同的计算-2 变成4 在拿4进行相同的计算2 在拿2进行计算2-2 =0
结束不在往_百度作业帮
VB 要计算一个很繁琐的计算?求高人指点啊0-10的数,我随便指定一个数字
比如我选择了8
那么8-2 变成了6
在拿6进行相同的计算-2 变成4 在拿4进行相同的计算2 在拿2进行计算2-2 =0
结束不在往
VB 要计算一个很繁琐的计算?求高人指点啊0-10的数,我随便指定一个数字
比如我选择了8
那么8-2 变成了6
在拿6进行相同的计算-2 变成4 在拿4进行相同的计算2 在拿2进行计算2-2 =0
结束不在往下进行!要求是必须利用公式function
Private Function LianJian(a As Integer) As IntegerDim i As IntegerDo While a >= 2a = a - 2i = i + 1LoopLianJian = iEnd Function
这个只是你说的程序的自定义函数。你要用一个主函数还调用这个，你把你的要求写清楚，我给你完善一下可好？关于文件的问题，求高人解答_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：84,513贴子：
关于文件的问题，求高人解答收藏
我读取一个txt文件的时候，只能把里面的内容打印在窗体上，如何能让文件里的内容在一个标签里显示出来？求代码Private Sub Command2_Click()liuyan.ShowDim strname As StringOpen App.Path & "\liuyanban.txt" For Input As #1While Not EOF(1)Line Input #1, strnameliuyan.Print strnameWendClose #1End Sub以上是我在窗体上打印的代码，怎么修改才可以？
Private Sub Command2_Click()
liuyan.Show
Dim strname As String
Open App.Path & &\liuyanban.txt& For Input As #1
While Not EOF(1)
Line Input #1, strname
s=s+ strname
Wend
Close #1
label1.caption=s
End Sub
以上是我在窗体上打印的代码，怎么修改才可以？
谢谢，能显示了，但是在label上无法逐行打印了，有什么方法可以解决？
s=s & strname & vbcrlf
现在可以了，谢谢
留言内容太多，label上显示不完了。能在旁边加个滚动条么？
label不行,用文本框
嗯，发现了。但是，文本框好像不能变成透明的。文本框里可以有背景图片么？
不能，你还是用Label吧，把AutoSize设为True试试，可以自动缩放
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或