select t.* ,substr(t.goods_code,-2) from codegoods t where substr(t.goods_code,0,2)='02' order by substr(t.goods_code,-2)
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名注册、虚拟空间、营销软件、网站建设、临湘网站维护、网站推广。
这样就可以啦。用SUBSTR就可以实现这个功能
右键点窗口 用菜单编辑器添加
添加后
VB Form1.frm 用记事本打开能看到
Begin VB.Menu a
Caption = "312"
Begin VB.Menu b
Caption = "13131"
Begin VB.Menu c
Caption = "1"
End
Begin VB.Menu d
Caption = "2"
End
End
End
End
动态生成的控件: Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim myPicture = New System.Windows.Forms.PictureBox() Me.Panel3.Controls.Add(myPicture) myPicture.Size = New System.Drawing.Size(115, 160) myPicture.TabStop = False myPicture.Name = "p" myPicture.Cursor = Cursors.Hand AddHandler myPicture.Click, AddressOf mypic_Click '添加事件 End Sub 处理事件的过程: Private Sub mypic_Click() 'ByVal id As String Dim bookInfo As New BookInfo bookInfo.Show() Me.Parent.Enabled = Fals
当前标题:vb.net多级菜单 vb菜单子菜单
本文网址:https://www.cdcxhl.com/article8/dojesop.html
成都网站建设公司_创新互联,为您提供建站公司、软件开发、外贸网站建设、定制开发、关键词优化、企业网站制作
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联