なんでも掲示板縦断 Ver 1.04

掲示板ID	投稿者	題名	投稿日
soft	なな	標準EXEからActiveXに変更	2006/04/03 14:41

こんにちは。
折角教えて頂けるというのに、サンプルソースをどう作れば良いか
悩んじゃってしまい、今日になってしまいました。
（結局、すごく簡単なものになってしまいましたが...）

サンプルソース
（実際はDBにデータを追加しています）

メニュー画面（フォームジュール）
Option Explicit
Private Sub cmdEnd_Click()
    End
End Sub
Private Sub cmdForm1_Click()
    Form1.Show , Me
End Sub
Private Sub cmdForm2_Click()
    Form2.Show , Me
End Sub

サブ1（フォームモジュール）
Option Explicit

Private strMainData As String
Private Function ADD_DATA(ByVal sData As String) As Boolean
    
    On Error GoTo Error_ADD_DATA
    
    ADD_DATA = False
    If Len(strMainData) = 0 Then
        strMainData = sData
    Else
        strMainData = strMainData & vbCrLf & sData
    End If
    ADD_DATA = True
    
    Exit Function
    
Error_ADD_DATA:
    Call MsgBox(Err.Description)
    
End Function
Private Sub cmdAdd_Click()
    If ADD_DATA(Text1.Text) Then
        frmMenu.Label1 = strMainData
    End If
End Sub
Private Sub cmdClose_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    strMainData = frmMenu.Label1.Caption
End Sub

サブ2（フォームモジュール）
Option Explicit

Private Sub cmdClose_Click()
    Unload Me
End Sub
Private Sub cmdDelete_Click()
    Dim strTemp As String
    If DEL_DATA(strTemp) Then
        frmMenu.Label1.Caption = strTemp
    End If
End Sub

標準モジュール
Option Explicit

Public Function DEL_DATA(ByRef sData As String) As Boolean
    
    On Error GoTo Error_DEL_DATA
    
    DEL_DATA = False
    sData = ""
    DEL_DATA = True
    
    Exit Function
    
Error_DEL_DATA:
    Call MsgBox(Err.Description)
    
End Function

以上、宜しくお願いします。

　削除キー　本当に更新する

---KONDO-NET.GR.JP---