KONDO-NETいい掲示板 By KLEB Ver 0.03

KLEB KONDO-NETいい掲示板

メンバーリスト　会員登録　ログイン

いい掲示板 - 掲示板一覧 - ソフト開発塾

ソフト開発（VB VC Perl PHPなど)に、関わるＱＡなど

現在、作成中につきこの板からは投稿・返信できません。
しかし、なんでも掲示板からは、投稿できます。

修正

投稿者名	メールアドレス公開レス通知
投稿題名
投稿内容	こんにちは。折角教えて頂けるというのに、サンプルソースをどう作れば良いか悩んじゃってしまい、今日になってしまいました。（結局、すごく簡単なものになってしまいましたが...）サンプルソース（実際は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 以上、宜しくお願いします。
削除キー	プレビュー投稿日:2006/04/03 14:41

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