I-BEGO

Yuhu
Spalda semuanya

Gini. saya mau tanya. Saya bikin form yang didalamnya saya kasih button dan textbox. saya juga bikin class(nama : class1) di luar form.

Untuk Form
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DariClass As New Class1
DariClass.fRMcLASS()

End Sub

Public Sub Txtbox(ByVal ParText As String)
TextBox1.Text = ParText
End Sub

End Class

Class1
Public Class Class1

Public Sub fRMcLASS()
Dim IsiText As New Form1
IsiText.Txtbox("menampilkan huruf di textbox")

End Sub

End Class

Jadi ceritanya saya mau isi textbox dari value di class1. pake koding di atas saya coba g menghasilkan apa2
bisa dibantu? apa ada yang salah? kalo ada konsep ato logika saya yang masih kurang tolong dibantu yak
( )

Terima kasih

gini mungkin..

Code: Select all

' procedure fRMcLASS di ubah jadi function biar ada return-nya dengan parameter strtext dengan type data String, variabel IsiText bisa diilangin karena usahakan class tidak berhubungan secara langsung dengan Form.
Public Class Class1

Public function fRMcLASS(strtext)as String
   return strtext
End Function

End Class


dari Form1 bisa diakses dengan cara

Code: Select all

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DariClass As New Class1
Dim ParText as String
TextBox1.Text = DariClass.fRMcLASS(ParText)
End Sub



asekk...bisa..
makasih ya...