frmmsgpost.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Public Class frmMsgPost

    Private Sub frmMsgPost_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Shared _f As frmMsgPost
    Public Shared Function ShowFrm(ByVal strTo As String) As DialogResult
        If _f Is Nothing OrElse _f.Disposing Then
            _f = New frmMsgPost
        End If
        _f.tb_To.Text = strTo
        Return _f.ShowDialog
    End Function

    Private Sub b_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_OK.Click
        Dim msg As New CsdnMsg
        MsgBox(msg.PostMsg(Me.tb_To.Text, Me.tb_Coutent.Text))
    End Sub
End Class