Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > กด Enter หรือ Double Click แล้วให้ข้อมูลไปแสดงในฟอร์มหลัก VB.Net

[.NET] กด Enter หรือ Double Click แล้วให้ข้อมูลไปแสดงในฟอร์มหลัก VB.Net

เริ่มหัวข้อใหม่

Jamesillion

โพสกระทู้ ( 60 )
บทความ ( 0 )

ขอคำแนะนำหน่อยครับ ถ้าอยากจะ กด Enter หรือ Double Click แล้วให้ข้อมูลไปแสดงในฟอร์มหลักจะทำยังไงครับ

Tag : MySQL, Win (Windows App), VB.NET, VS 2012 (.NET 4.x)

Date : 2015-09-07 01:46:11

By : Jamesillion

View : 3735

Reply : 14

No. 1

Freedom

โพสกระทู้ ( 317 )
บทความ ( 0 )

ใช้คำสั่ง get set ครัับ หลักๆ คือ get ดึงข้อมูล set กำหนดข้อมูล

Date : 2015-09-07 09:32:55

By : Freedom

No. 2

Jamesillion

โพสกระทู้ ( 60 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 1 เขียนโดย : Freedom เมื่อวันที่ 2015-09-07 09:32:55

รายละเอียดของการตอบ ::

พอจะมีรูปแบบคำสั่งตัวอย่างมั้ยครับ พอดีว่ามือใหม่น่ะครับ = =

Date : 2015-09-07 22:33:15

By : Jamesillion

No. 3

Freedom

โพสกระทู้ ( 317 )
บทความ ( 0 )

นี้คือ คำสั่งจากฟอร์ม ลูกครับ

public string ReturnValue1 {get;set;} 
public string ReturnValue2 {get;set;}
then set this inside your sub-form ok button click handler
 
private void btnOk_Click(object sender,EventArgs e)
{
    this.ReturnValue1 = "Something";
    this.ReturnValue2 = DateTime.Now.ToString(); //example
    this.Close();
}

ข้างล่างนี่คือคำสั่งจากฟอร์มที่เรียกใช้งาน

using (var form = new frmImportContact())
{
    var result = form.ShowDialog();
    if (result == DialogResult.OK)
    {
        string val = form.ReturnValue1;            //values preserved after close
        string dateString = form.ReturnValue2;
        //Do something here with these values
 
        //for example
        this.txtSomething.Text = val;
    }
}

Date : 2015-09-08 08:43:05

By : Freedom

No. 4

Jamesillion

โพสกระทู้ ( 60 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 3 เขียนโดย : Freedom เมื่อวันที่ 2015-09-08 08:43:05

รายละเอียดของการตอบ ::

มีตัวอย่างที่เป็น Vb.net มั้ยอ่ะครับ พอดีว่ายังไม่ได้ศึกษา C# หรือแนะนำเพิ่มเติมได้มั้ยครับ ขอบคุณมากค่าบ

Date : 2015-09-08 23:59:34

By : Jamesillion

No. 5

Freedom

โพสกระทู้ ( 317 )
บทความ ( 0 )

Code (VB.NET)

Public Property ReturnValue1() As String
    Get
        Return m_ReturnValue1
    End Get
    Set
        m_ReturnValue1 = Value
    End Set
End Property
Private m_ReturnValue1 As String
Public Property ReturnValue2() As String
    Get
        Return m_ReturnValue2
    End Get
    Set
        m_ReturnValue2 = Value
    End Set
End Property
Private m_ReturnValue2 As String
 
 
Private Sub btnOk_Click(sender As Object, e As EventArgs)
    Me.ReturnValue1 = "Something"
    Me.ReturnValue2 = DateTime.Now.ToString()
    'example
    Me.Close()
End Sub

Code (VB.NET)

Using form = New frmImportContact()
    Dim result = form.ShowDialog()
    If result = DialogResult.OK Then
        Dim val As String = form.ReturnValue1
        'values preserved after close
        Dim dateString As String = form.ReturnValue2
        'Do something here with these values
 
        'for example
        Me.txtSomething.Text = val
    End If
End Using

Date : 2015-09-09 15:46:16

By : Freedom

No. 6

Jamesillion

โพสกระทู้ ( 60 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 5 เขียนโดย : Freedom เมื่อวันที่ 2015-09-09 15:46:16

รายละเอียดของการตอบ ::

ขอบคุณพี่มากครับ ส่วนนี้ทำได้แล้วครับ แต่ขอรบกวนต่ออีกคำถามนะครับ ถ้าเกิดว่า ในกรณีข้างต้น แต่เป็น datagridview ของ from1 เวลาเรา doubleclick แล้วอยากให้แค่แถวนั้นไปลงใน datagridview ของ from2 ต้องทำยังไงครับ ขอบคุณมากๆ ครับ ที่ให้คำแนะนำ

Date : 2015-09-10 02:20:58

By : Jamesillion

No. 7

Freedom

โพสกระทู้ ( 317 )
บทความ ( 0 )

ต้องดูโค้ดอะคับ หลักๆ ก็ใช้ get set เหมือนเดิมครับ
แต่ถ้าจะให้ทำตัวอย่างให้ ยาวครับ ต้องดูโค้ดีีกว่า

Date : 2015-09-10 08:51:42

By : Freedom

No. 8

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

เหมือนรูปแบบนี้ส่วนใหญ่เขาทำผ่าน SQL query นิครับ

ประมาณรับ Index มาแล้ว select จะง่ายกว่า
เพราะถ้าเราแก้ไขรูปแบบตารางจะได้ไม่มีปัญหากับโค๊ดครับ

Date : 2015-09-10 11:45:24

By : lamaka.tor

No. 9

Jamesillion

โพสกระทู้ ( 60 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 7 เขียนโดย : Freedom เมื่อวันที่ 2015-09-10 08:51:42

รายละเอียดของการตอบ ::

อันนี้เป็น ส่วนที่เพิ่มข้อมูลลง textbox ได้สำเร็จครับ
ตรงนี้เป็น code ของหน้า ค้นหาสมาชิกครับ Code (VB.NET)

Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
    If e.RowIndex = -1 Then Exit Sub
    With DataGridView1
        Rent.txtMemID.Text = .Rows(e.RowIndex).Cells(0).Value.ToString
        Rent.cboTitle.Text = .Rows(e.RowIndex).Cells(1).Value.ToString
        Rent.txtName.Text = .Rows(e.RowIndex).Cells(2).Value.ToString
        Rent.txtLName.Text = .Rows(e.RowIndex).Cells(3).Value.ToString
        Rent.txtMemIDCard.Text = .Rows(e.RowIndex).Cells(4).Value.ToString
        Rent.txtAddress.Text = .Rows(e.RowIndex).Cells(5).Value.ToString
        Rent.txtPhoneNumber.Text = .Rows(e.RowIndex).Cells(6).Value.ToString
        Rent.txtEMail.Text = .Rows(e.RowIndex).Cells(7).Value.ToString
        'สร้างไว้ส่งค่าไปยังอีกฟอร์ม
    End With
    Me.Close()
End Sub

ตรงนี้เป็น code ของหน้าหลักครับ ใส่ไว้เรียกใช้งานเมื่อคลิกปุ่มค้นหาCode (VB.NET)

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    Dim r As New SMem
    r.ShowDialog(DataGridView1) 'เปิดฟอร์มค้นหาพร้อมทั้งเรียกใช้การค้นหาจาก datagridview1 จากฟอร์มดังกล่าว
End Sub

เลยอยากรู้ว่าถ้าจะส่งข้อมูล จาก Datagridview ของฟอร์มค้นหาอีกฟอร์ม มาลง Datagridview ของฟอร์มหลักต้องทำยังไงบ้างครับ

Date : 2015-09-12 00:49:45

By : Jamesillion

No. 10

Jamesillion

โพสกระทู้ ( 60 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 8 เขียนโดย : lamaka.tor เมื่อวันที่ 2015-09-10 11:45:24

รายละเอียดของการตอบ ::

พอจะมีโค้ดตัวอย่างมั้ยครับ พอดีว่าเพิ่งเริ่มศึกษาอ่ะครับ ขอบคุณมากครับ ^^

Date : 2015-09-12 00:50:54

By : Jamesillion

No. 11

Furikuri

โพสกระทู้ ( 281 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 8 เขียนโดย : lamaka.tor เมื่อวันที่ 2015-09-10 11:45:24

รายละเอียดของการตอบ ::

ใช่ครับ ตอนเลือกให้ส่งเป็น index ของลูกค้าไปยังฟอร์มหลัก แล้วดึงข้อมูลลูกค้ามาแสดงอีกที

Date : 2015-09-12 12:31:32

By : deksoke

No. 12

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

Code (VB.NET)

Module Module1
    Public connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA\PostCode.mdb;Persist Security Info=True;Jet OLEDB:Database Password=4410210091"
    Public Function GetTableForm(_SQL As String) As System.Data.DataTable
        Dim ds As New System.Data.DataSet()
        Dim conn1 As New System.Data.OleDb.OleDbConnection(connectionString)
        conn1.Open()
        Dim adapter1 As New System.Data.OleDb.OleDbDataAdapter(_SQL, conn1)
        adapter1.Fill(ds)
        Return ds.Tables(0)
 
    End Function
End Module

Code (VB.NET)

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        
        Me.BindingSource1.DataSource = GetTableForm("SELECT * FROM Sett_Post_Province")
        ProvinceTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BindingSource1, "Province", True))
        PvnIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BindingSource1, "pvnID", True))
        SymbolTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BindingSource1, "Symbol", True))
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New Form2
        f.ShowDialog()
        If (f.PvItem <> 0) Then
            Me.BindingSource1.Filter = "PvnID = " & f.PvItem
        End If
    End Sub
End Class

Code (VB.NET)

Public Class Form2
    Public PvItem As Integer = 0
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = GetTableForm("SELECT * FROM Sett_Post_Province").DefaultView
 
    End Sub
    Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        PvItem = Integer.Parse(DataGridView1(0, e.RowIndex).Value)
        Close()
    End Sub
End Class

หลักการบ้านที่ผมใช้
-ยัด data มารวมใน Module เพื่อให้เรียกใช้ได้ทุก class
-Form2 จะมีตัวแปร Public มาใช้งานอาจจะเป็น Int list array แล้วแต่ศรัทธา
ที่นำเสนอแบบนี้เพราะสามารถให้ user ใส่ SQL ใน DataGridView ง่ายๆได้สะดวกในการค้นหา
-Form1 เรียกใช้ Form2 แบบ ShowDialog แล้วเอาตัวแปร Public Form2 มาใช้

ที่เหลือแล้วแต่ลูกจะเล่นของแต่ละคน

Date : 2015-09-12 13:19:57

By : lamaka.tor

No. 13

Guest

ตอบความคิดเห็นที่ : 12 เขียนโดย : lamaka.tor เมื่อวันที่ 2015-09-12 13:19:57

รายละเอียดของการตอบ ::

ตอนนี้ดึงข้อมูลใน datagridview มาแสดงใน textbox ได้แล้วครับ แต่ตอนนี้อยากจะทราบวิธีการที่ ดึงข้อมูลจาก datagridview จากอีก from มาลงใน datagridview ของอีก from โดยการ Double Click ตามภาพนี้อ่ะครับ ช่วยแนะนำหน่อยครับผม

Date : 2015-09-13 01:44:25

By : Jamesillion

No. 14

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

เห็นมี 2 แบบที่ใช้ๆกันคือ แบบเลือกได้อันเดียว กะ แบบเลือกได้หลายๆ อัน (แล้วแต่งานครับ)
ลองดูแบบเลือกได้หลายๆอันดู

111

Code (VB.NET)

Module Module1
    Public connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA\PostCode.mdb;Persist Security Info=True;Jet OLEDB:Database Password=4410210091"
    Public Function GetTableForm(_SQL As String) As System.Data.DataTable
        Dim ds As New System.Data.DataSet()
        Dim conn1 As New System.Data.OleDb.OleDbConnection(connectionString)
        conn1.Open()
        Dim adapter1 As New System.Data.OleDb.OleDbDataAdapter(_SQL, conn1)
        adapter1.Fill(ds)
        Return ds.Tables(0)
 
    End Function
End Module

Code (VB.NET)

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        
        Me.BindingSource1.DataSource = GetTableForm("SELECT * FROM Sett_Post_Province")
        ProvinceTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BindingSource1, "Province", True))
        PvnIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BindingSource1, "pvnID", True))
        SymbolTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BindingSource1, "Symbol", True))
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New Form2
        f.ShowDialog()
        If (f.PvItem <> 0) Then
            Me.BindingSource1.Filter = "PvnID = " & f.PvItem
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim f As New Form2
        f.ShowDialog()
        For i As Integer = 0 To f.DataGridView1.RowCount - 1
            If Convert.ToBoolean(f.DataGridView1(0, i).Value) = True Then
                DataGridView1.Rows.Add(f.DataGridView1(1, i).Value, f.DataGridView1(2, i).Value, f.DataGridView1(3, i).Value)
            End If
        Next
    End Sub
End Class

Code (VB.NET)

Public Class Form2
    Public PvItem As Integer = 0
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = GetTableForm("SELECT * FROM Sett_Post_Province").DefaultView
 
    End Sub
    Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        PvItem = Integer.Parse(DataGridView1(0, e.RowIndex).Value)
        Close()
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Close()
    End Sub
End Class

หลักการบ้านที่ผมใช้
-ยัด data มารวมใน Module เพื่อให้เรียกใช้ได้ทุก class
-Form2 จะมีตัวแปร Public DataGridView1 แล้วเพ่ม DataGridViewCheckBoxColumn เพื่อให้ Form1 เรียกใช้ได้
-Form1 เรียกใช้ Form2 แบบ ShowDialog แล้วเอาตัวแปร Public Form2 มาใช้
-พอ Form1 เปด Form2 มาเลือกแล้วปด Form2 ก็ loop มาเพื่อเชคและเพ่มค่าที่ selected ไว้

ที่เหลือแล้วแต่ลูกจะเล่นของแต่ละคน

Date : 2015-09-13 12:22:51

By : lamaka.tor

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : กด Enter หรือ Double Click แล้วให้ข้อมูลไปแสดงในฟอร์มหลัก VB.Net

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] กด Enter หรือ Double Click แล้วให้ข้อมูลไปแสดงในฟอร์มหลัก VB.Net

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

No. 14

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] กด Enter หรือ Double Click แล้วให้ข้อมูลไปแสดงในฟอร์มหลัก VB.Net