จะรับค่าจาก textbox กับ combobox ยังไงอะ

??? ??? ???
ช่วยบอกที
ไม่งั้นงานไม่เสด
อ๊าก

คำถามไม่ค่อยละเอียดเลย เดาว่าคงต้องการนำค่าจะ textbox, combobox ไป assign ค่าให้ตัวแปลภายใน srccodeใช่หรือไม่ ถ้าใช่เดี๋ยวจะหาตัวอย่างมาให้ แต่จริงๆคิดว่าในหนังสือทุกเล่มสอนอย่างละเอียดไว้แล้ว ถ้าไม่ทันใจก็อ่านไปก่อนก็ได้

TextBox ใช้ .Text

ComboBox สำหรับข้อความที่อยู่ในช่องที่ให้พิมพ์จะใช้ .Text
ส่วนจะหาว่า selected ไว้ที่ item ไหน ใช้ .ListIndex
มีค่าเป็น integer บอกตำแหน่งของ item ที่เลือกไว้ โดยเริ่มที่ item แรกเป็น 0
ถ้าไม่ได้เลือกอะไรไว้เลยจะเป็น -1
วิธีเอาค่าของ item ที่เลือกไว้ มาแสดงผ่าน MsgBox มีตามนี้ครับ
สมมุติ Cmb เป็น ComboBox ที่สร้างไว้
call MsgBox(Cmb.List(Cmb.ListIndex))

ต้องขออำพัยที่บอกไปไม่ละเอียด
ครือว่า
ข้าน้อยจะเอาค่าของ Textbox เป็นตัวแปรตัวที่หนึ่ง
และเอาค่าของ Combobox แทนในตัวแปรที่สอง
เพื่อเอามาคำนวณหาค่าใน function ที่สร้างเอาไว้

ตัวอย่าง dataA = val(Text1.text)
dataB = val(Combo1.text)
Sum = dataA+dataB

Combo1.text จะเก็บค่าตัวเลือกที่เราคลิ๊กไว้ครับ
ส่วน val(Str) เป็นการแปลงอักษรเป็นตัวเลขครับ

กรณีที่ ค่าของตัวแปรมีจุดทศนิยม ให้ใช้แบบนี้ครับ
SumData = (float)System.Convert.ToSingle(text1.Text.ToString()) + (float)System.Convert.ToSingle(cbo1.SelectedValue.ToString());

(float)System.Convert.ToSingle คือแปลงจาก Text เป็น Float
cbo1.SelectedValue.ToStiring() เป็นการดึงค่าจาก Item ที่เราเลือกใน ComboBox ครับ

Quote:

---

กรณีที่ ค่าของตัวแปรมีจุดทศนิยม ให้ใช้แบบนี้ครับ
SumData = (float)System.Convert.ToSingle(text1.Text.ToString()) + (float)System.Convert.ToSingle(cbo1.SelectedValue.ToString());

(float)System.Convert.ToSingle คือแปลงจาก Text เป็น Float
cbo1.SelectedValue.ToStiring() เป็นการดึงค่าจาก Item ที่เราเลือกใน ComboBox ครับ
[/b]

---

เอ่อ คือว่า อันข้างบนมันเป็นของ .NET ม่ะใช่เหรอครับ?
มันใช้ก่า VB6 ม่ะไ้ด้ง่ะ

แต่ว่า Algoฯ ก็เหมือนกันแหละครับ

A = Text1.Text
B = Combo1.Listindex

เหมือนกันครับ

ก็ ถ้าเขียนบ่อยๆ ก็ชินไปเองแหละครับ พยายามเข้านะ สู้ๆ!!!!

ใช้ vb คีย์พอรู้ครับ

Private Sub Timer1_Timer()
If GetKeyState(vbKeyF2)
x = Text1.Text
SendKeys x
End If
End Sub


สร้าง timer1 1ตัว ตั้ง inteval 100

ประกาศ ตัวเเปร

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer


สร้าง textbox เเล้วลอง กด F5 ให้โปรเเกรมมันรันเเล้วก็ เปิด notepad ลอง กด F2 ดู

จะเห็นว้ามันจะขึ้นตาม Textbox ข้อความ

ง่ายๆนะครับก็แค่ สร้างตัวแปลมารับค่าจาก TextBox แล้วแต่ว่าเราจะรับมาเป็นตัวแปลประเภทไหน ผมรับมาเป็น String แล้วกัน

Dim A as Sting
Dim B as String

ที่นี้ในอีเว้น Command_Click (เมื่อคลิกปุ่มกด) จะให้รับค่าที่ TextBox กับ ComboBox มาบวกกัน

Command1_Click
A = Val(Text1.Text)
B = Val(Combo1.Text)

ต่าที่ได้จะเป็นตัวเลขเก็บไว้ที่ TextBox2 นะครับ

Text2.Text = A + B

เท่านี้เองครับ ไม่รู้ใช่ตามที่ต้องการหรือเปล่า ส่วน Val คือการแปลงจาก Text เป็น ตัวเลขครับ