ppd.ShowDialog()

        Catch exp As Exception

            MessageBox.Show("有错误发生！！不能预览 ！" & _

                "确信现在你是否能够 " & _

                "连接到一个打印机？" & _

                "然后预览才可以.", Me.Text, _

                 MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

    Private Sub mPrintpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mPrintpreview.Click

        printpreview()

End Sub

其它比如状态栏的状态提示，字体对话框，颜色对话框等等不细说了，请参考源代码。

      总结：

总体来说，本程序达到了windows写字板85%的功能，很可惜就是没有做标尺的效果，也有些思路，就是利用拖动控件代码，设置两个控件，左右对称。规定这两个控件只能在一条水平线上拖动，根据两个控件的移动来确定Richtextbox中文本前后间距的空间大小，大致思路就是这样。

全文完。

by zigz(LuHai)

luluhai@eastday.com

上一页  [1] [2] [3]