Re: [Programmer-VB] .NET:: Parameter pada Modul utk Multi Form

Sun, 07 Aug 2005 17:27:46 -0700

Title: .NET:: Parameter pada Modul utk Multi Form
Hello Muliadi Liem ,
 
Saya punya seperti ini , sehingga dapat dipanggil dari beberapa form dan parameternya akan dikirim ke form yang terkait : ( this procedure will be send parameter to dynamic form )
 
 
Sub GetDataPenabung(Kunci, vForm)
    Dim kpp As Recordset
    Dim vkpp As String
    Dim statusdata As String
   
    Set Db = DBEngine.Workspaces(0).OpenDatabase(LoKasi, False, False, ";pwd=id973354008id")
    Set rek = Db.OpenRecordset("SELECT * FROM bla", 2)
    If rek.RecordCount < 1 Then
        Db.Close
        status_input = "0"
        For i = 2 To 7
            FrSetor.LbRek(i).Caption = "..............."
        Next i
        Pesan = MsgBox("Perhatian : " & vbCrLf & vbCrLf & "Nomor Rekening " & Kunci & " Tidak Ada !", vbInformation, "Data Kosong")
        With vForm
            .TxRp.SetFocus
            .TxRek3.Text = ""
            .TxRek4.Text = ""
            .TxRek3.SetFocus
        End With
    Else
   
        KunciAsli = rek!korek
        Bsu_awal = rek!saldo_akhir
        statusdata = rek!status_data
       
        With vForm
            .LbRek(2).Caption = rek!pemilik
            .LbRek(3).Caption = rek!alamat
            .LbRek(4).Caption = rek!despenab
            .LbRek(5).Caption = rek!desdata
            .LbRek(6).Caption = Format(rek!saldo_akhir, "###,###,##0")
            .LbRek(7).Caption = Format(rek!saldo_akhir, "###,###,##0")
            .LbRek(1).Caption = rek!kantor
            .Text1.Text = rek!saldo_akhir
        End With
        status_input = "1"
        Db.Close
        If statusdata <> "1" Then
            Pesan = MsgBox("REKENING TELAH DITUTUP/BLOKIR" & vbCrLf & "TIDAK DAPAT MELAKUKAN TRANSAKSI APAPUN !", vbCritical, "Tidak Aktif")
           
        End If
    End If
End Sub
----- Original Message -----
Sent: Sunday, August 07, 2005 5:02 PM
Subject: [Programmer-VB] .NET:: Parameter pada Modul utk Multi Form

Mohon pencerahan dari para suhu….

Saya mempunyai 2 Form dan 1 Module:

1. Form1, terdiri dari 1 Button1

        Private Sub Button1_Click(……..)

                Call JudulButton(“Ini Form1”, Me)

        End Sub

       

2. Form2, terdiri dari 1 Button1

        Private Sub Button1_Click(…….)

                Call JudulButton(“Ini Form2, Me)

        End Sub

4. Module1

Public Function JudulButton(strJudul as String, MyForm as ???—form--???) as String

                MyForm.Button1.Text = strJudul  (GA JALAN!!)

      ‘Pesan Error: Button1 is not a members of System.Windows.Form.Form

        End Function

Rencananya mo buat Function di Module sehingga bisa di pake oleh beberapa Form.

Jadi waktu manggil Function JudulButton, dari Form Asal tinggal melemparkan Parameter bahwa itu Form Asal nya adalah Form1 atau Form2.

Pertanyaan-nya:

1. Parameter apa yg harus dilemparkan dari Form1 dan Form2 pd saat manggil Function JudulButton()??

2. Bentuk Parameter apa yg harus saya ketik pada Function JudulButton di Module??

Pake Inherits mungkin bisa, tetapi bila kemudian ada FORM3 yg tdk Inherits, maka jadi error juga.

Mohon petunjuk dong…

regards,
Muliadi Liem



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke