找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人尊貴會員無限觀看附件圖片尊貴會員無限下載附件
julia上原亞衣人妖柯南3d惡靈古堡kkbox
チェッタ汽旅偷拍蓮実大塚まひssis 984系統julia

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]反派千金等級99~

泰國 女學生踢球空檔

[DVD簡/日配]劇場版

✡ 狂王・03・2024.2

[繁/無修正]夢想成為

[繁]不死不運22-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 4371|回復: 1

[求助] visual basic 2015問題 急~[複製鏈接]

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
1
積分
1003 點
潛水值
13750 米
發表於 2018-1-1 06:25 PM|顯示全部樓層
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。
本帖最後由 darkjack 於 2018-1-6 05:59 PM 編輯

請問如果想要把下列每個熱量的數值直接總和在一個TEXTBOX 內請問要怎麼寫程式碼?
以下附件截圖為的目前執行出來的程式檔




以下是目前程式碼

  1. Public Class Form1

  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  3.         Dim clickedCount = 0
  4.         If Button1.Tag <> Nothing Then
  5.             Int32.TryParse(Button1.Tag.ToString(), clickedCount)
  6.         End If
  7.         clickedCount += 1
  8.         DoSomethingAccordingToClickedCount(clickedCount)
  9.         Button1.Tag = clickedCount
  10.     End Sub

  11.     Private Sub DoSomethingAccordingToClickedCount(clickedCount As Integer)
  12.         'Todo:
  13.         If clickedCount = 1 Then
  14.             Randomize()
  15.             Select Case Int((3) * Rnd())
  16.                 Case Is = 0
  17.                     Label1.Text = "麵 350大卡"
  18.                 Case Is = 1
  19.                     Label1.Text = "飯 370大卡"
  20.                 Case Is = 2
  21.                     Label1.Text = "水餃 400大卡"
  22.             End Select

  23.         End If

  24.         If clickedCount = 2 Then
  25.             Randomize()
  26.             Select Case Int((3) * Rnd())
  27.                 Case Is = 0
  28.                     Label2.Text = "空心菜  150大卡"
  29.                 Case Is = 1
  30.                     Label2.Text = "湯匙菜  160大卡"
  31.                 Case Is = 2
  32.                     Label2.Text = "高麗菜  180大卡"
  33.             End Select
  34.         End If
  35.         If clickedCount = 3 Then
  36.             Randomize()
  37.             Select Case Int((3) * Rnd())
  38.                 Case Is = 0
  39.                     Label3.Text = "蔥爆牛肉  250大卡"
  40.                 Case Is = 1
  41.                     Label3.Text = "炸排骨  280大卡"
  42.                 Case Is = 2
  43.                     Label3.Text = "三杯雞  260大卡"
  44.             End Select
  45.         End If
  46.         If clickedCount = 4 Then
  47.             Randomize()
  48.             Select Case Int((3) * Rnd())
  49.                 Case Is = 0
  50.                     Label4.Text = "涼拌黃瓜  180大卡"
  51.                 Case Is = 1
  52.                     Label4.Text = "皮蛋豆腐  190大卡"
  53.                 Case Is = 2
  54.                     Label4.Text = "海澤皮  150大卡"
  55.             End Select
  56.         End If
  57.         If clickedCount = 5 Then
  58.             Randomize()
  59.             Select Case Int((3) * Rnd())
  60.                 Case Is = 0
  61.                     Label5.Text = "南瓜湯  250大卡"
  62.                 Case Is = 1
  63.                     Label5.Text = "玉米濃湯  230大卡"
  64.                 Case Is = 2
  65.                     Label5.Text = "紫菜蛋花湯  150大卡"
  66.             End Select
  67.         End If
  68.     End Sub
  69. End Class
複製代碼



小弟真的不知道該如何修改程式碼,跪求大大解答,很急~~謝謝

...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

點評

darkjack 上次的文幫你框程式碼了,這次你又沒框,在幫你框一次,下次再看到就直接扣分  發表於 2018-1-6 05:59 PM

使用道具檢舉

帖子
59
積分
28 點
潛水值
11690 米
發表於 2018-1-6 01:19 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
首先, 請先Imports System.Text.RegularExpressions

再來請在您的Button1_Click 那個 Subroutine 的 Button1.Tag = clickedCount 那行底下加入如下代碼, 我想應該就能達到您的需求...
  1. If clickedCount <= 5 Then
  2.             TextBox1.Text = (Val(Regex.Replace(TextBox1.Text, "[^0-9]", "")) +
  3.                              Val(Regex.Replace(Me.Controls("Label" & _
  4.                              clickedCount.ToString()).Text, "[^0-9]", ""))) & "大卡"
  5. End If
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部