楊凱璇

標題:

VB 的CheckBox寫法

發問:

請問: 我要用 CheckBox來作表單 例如: 牛排 -肉2公斤,油5克 炒飯-飯500克,油3克 湯-油10克,水50克 執行後,把有勾選的 肉.油.飯,水,的重量顯示出來 程式該怎麼打阿

最佳解答:

Dim a1(10) As String Private Sub Command1_Click() Text1 = "" List1.Clear For i = 0 To Check1.UBound If Check1.Item(i) = 1 Then List1.AddItem a1(i) Text1 = Text1 + Str(i) End If Next End Sub Private Sub Form_Load() a1(0) = "牛排 -肉2公斤, 油5克" a1(1) = "炒飯 -飯500克, 油3克" a1(2) = "湯 -油10克, 水50克" a1(3) = "豬排 -肉3公斤, 油15克" a1(4) = "雞排 -肉2.5公斤, 油10克" a1(5) = "魚排 -肉2公斤, 油20克" End Sub

其他解答:

我要特別介紹一下這家網路團購美食TOP1的賣家 什麼叫壓倒性的好吃~真的沒吃之前我也不相信!! 我第一次吃是訂購他家的年菜，但是其實他們家不只單單年菜而已 他會隨著季節、特殊節日、節慶等等...推出各式各樣不同的美食 都超級無敵好吃的啦！！！ 先來分享我那年為什麼會想上網訂購年菜呢 一年當中最重要的日子就是全家大小聚在一起吃的團圓飯 尤其那年過年訂的年菜，讓我印象非常深刻 往年都是媽媽親手在廚房忙東忙西的準備年菜 因為不想媽媽連過年都要這麼忙碌，所以就想到要上網訂年菜 我花了好幾天時間，在網路上比較好幾十家大家吃過的評比與分享 發現有一家廠商在網路上超多人推薦的！ 而且還榮獲2013年網路人氣賣家100強 在專家評鑑項目內壓倒性榮登評審團評比冠軍第一名 就是這一家叫「台北濱江」的網路美食人氣賣家 http://adf.ly/v7lwL 他除了過年有推出年菜之外，會隨著季節有不同的變化 冬天也有很多新鮮的火鍋湯料，還常常舉辦買一送一的活動 或者是大家一起的團購活動，甚至有時候還免運費 不過因為太搶手了，常常有時候我平常要買時已經被搶購一空了 所以各位如果有興趣，看到特價的就要趕快動手，免得點進去是"已售完" 因為那年訂的一整桌年菜，獲得了全家大小無數的讚賞~ 所以接下來的幾年過年，大家很有默契的還是要訂他們家的年菜 他的年菜有很多種組合，可以依照你家有多少人去選購 如果你要買伴手禮水果禮盒 他裡面有很多專門外銷的品種，還有國外進口超新鮮超美味的水果 會讓你自己吃起來滿足，送禮方面也會讓你超有面子的 有時候會舉辦買一送一的活動，這時候手腳真的要很快了～ 上次有看到想吃的東西，結果點進去要買時已經銷售一空…飲恨呀！ 特殊節日時，常常也有超人氣特價美食推出 料多味美，只要網路上下單，有時還免運費幫你送到家 我前幾天就訂了這個『安格斯霜降雪花牛燒烤片』 因為我爸爸很愛吃牛肉，但他口味很挑，要讓他吃到滿意的很少 不要看他買一送一就懷疑他品質，我阿爸說原來網路上也有這麼好吃的 平常喜歡在家煮火鍋的朋友人也有福了 下班後不想托著疲累的身驅到賣場挑選料理食材 現在台北濱江也都訂的到喔！而且都幫你精挑細選好最棒的食材 讓你不用花時間出門也能吃到好料理 『台北濱江美食網』真的有太多的寶物可以讓你慢慢買、慢慢品嚐了 想滿足自己味蕾的人，一定要趕快吃看看 不騙你真的超好吃的，網路人氣賣家不是說說而已 觀看台北濱江美食介紹http://adf.ly/v7lwL ----------------------------------------AC828356CC8E4D7C