dayin/guotong.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Drawing.Printing
Imports kuaidi.w_ewm
Public Class guotong
    Private CRectCtl As RectControl.CRectControl
    Dim u_info() As String
    'u_id, sj_name, sj_mb, sj_company, sj_sheng, sj_shi, sj_qu, sj_dizhi
    Sub New(ByVal _u_info() As String) 
        ' 此调用是设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。
        u_info = _u_info
    End Sub
    Private Sub guotong_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'http://blog.csdn.net/quxiao2002/article/details/7368138
        'http://blog.sina.com.cn/s/blog_621e24e2010164yc.html
        fj_date.Text = Now.Date
        sj_name.Text = u_info(1)
        sj_mb.Text = u_info(2)
        sj_company.Text = u_info(3)
        sj_sheng.Text = u_info(4)
        sj_shi.Text = u_info(5)
        sj_qu.Text = u_info(6)
        sj_dizhi.Text = u_info(7)
        sj_sheng_shi.Text = u_info(5)
        Me.Text = "打印 - 国通快递面单 - " & sj_name.Text
        Me.ComboBox1.SelectedIndex = 0
        Dim ewm As String = "http://www.ningjiao.com.cn/zx_1.html"
        'Me.PictureBox1.ImageLocation = Buildewm(ewm)
        Me.PictureBox1.Visible = False
        Call viewtxtinfo("guotong")
    End Sub


    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim g As Graphics = e.Graphics
        '先建立画布 
        Dim x As Integer = 50
        Dim y As Integer = -30 
        'g.DrawImage(Me.PictureBox1.Image, Me.PictureBox1.Left, PictureBox1.Top, 100, 100) 
        For Each item As Control In Me.Controls
            If TypeOf item Is TextBox Then
                Dim tx As Control = TryCast(item, Control)  
                g.DrawString(tx.Text, tx.Font, Brushes.Black, New RectangleF(tx.Left + x, tx.Top + y, tx.Width, tx.Height))
            End If
        Next 
    End Sub
    Sub xx(ByVal s As TextBox)
        s.BringToFront()
        s.Capture = False
        If Me.Controls.Contains(CRectCtl) Then
            Me.Controls.Remove(CRectCtl)
        End If
        CRectCtl = New RectControl.CRectControl(s)
        Me.Controls.Add(CRectCtl)
        CRectCtl.BringToFront()
        CRectCtl.Draw()
    End Sub

    Sub xx1(ByVal s As PictureBox)