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菜單子菜單
本文網址:http://m.newbst.com/article8/dojesop.html
成都網站建設公司_創新互聯,為您提供建站公司、軟件開發、外貿網站建設、定制開發、關鍵詞優化、企業網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯