伊莉討論區

標題: visual basic 2015問題 急~ [打印本頁]
作者: happyjimmy00000    時間: 2018-1-1 06:25 PM     標題: visual basic 2015問題 急~

本帖最後由 darkjack 於 2018-1-6 05:59 PM 編輯

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

[attach]121687609[/attach]

以下是目前程式碼

  1. Public Class Form1

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

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

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

  27.         End If

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



小弟真的不知道該如何修改程式碼，跪求大大解答，很急~~[attach]121687462[/attach][attach]121687462[/attach][attach]121687462[/attach][attach]121687462[/attach][attach]121687462[/attach][attach]121687462[/attach][attach]121687462[/attach]謝謝[attach]121687462[/attach]

作者: sggleeee    時間: 2018-1-6 01:19 PM

首先, 請先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
複製代碼




歡迎光臨 伊莉討論區 (http://a401.file-static.com/) Powered by Discuz!