mid box

       好久不见，今天我想和大家探讨一下关于“mid box”的话题。如果你对这个领域还不太熟悉，那么这篇文章就是为你准备的，让我们一起来了解一下吧。

1.求这首爆笑歌的歌词！DickinaBox 《盒子里有只鸟》

2.如何用vb.net打印RichTextBox1的内容

3.VB RichTextBox 字体颜色

求这首爆笑歌的歌词！DickinaBox 《盒子里有只鸟》

       歌词：

       The Lonely Island - Dick in a Box

       Hey girl I got somethin' real important to give you

       Girl ya gotta know you're my shining star

       So just sit down and listen

       Girl you know we've been together such a long long time (such a long time)

       And now I'm ready to lay it on the line

       (Wooow) You know it's Christmas and my heart is open wide

       Gonna give you something so you know what's on my mind

       A gift real special, so take off the top

       Take a look inside - It's my dick in a box

       Not gonna get you a diamond ring

       That sort of gift don't mean anything

       Not gonna get you a fancy car

       Girl ya gotta know you're my shining star

       Not gonna get you a house in the hills

       A girl like you needs somethin' real

       Wanna get you somethin' from the heart

       Somethin' special girl

       It's my dick in a box, my dick in a box babe

       It's my dick in a box, my dick in a box girl

       See I'm wise enough to know when a gift needs givin' (yeah)

       And I got just the one, somethin' to show ya that you are second to none

       To all the fellas out there with ladies to impress

       It's easy to do just follow these steps

       One：Cut a hole in a box

       Two：Put your junk in that box

       Three：Make her open the box

       And that's the way you do it

       It's my dick in a box… my dick in a box babe

       It's my dick in a box, my dick in a box girl

       Christmas; dick in a box

       Hanukkah; dick in a box

       Kwanzaa; a dick in a box

       Every single holiday a dick in a box

       Over at your parent's house a dick in a box

       Mid day at the grocery store a dick in a box

       Backstage at the CMA's a dick in a box (yeah-wow-wow-wow-wow-wow)

       A dick in a box…

如何用vb.net打印RichTextBox1的内容

       歌曲名:Dick In A Box

       歌手:The Lonely Island

       专辑:Dick In A Box

       Hey girl I got somethin' real important to give you

       Girl ya gotta know you're my shining star

       So just sit down and listen

       Girl you know we've been together such a long long time (such a long time)

       And now I'm ready to lay it on the line

       (Wooow) You know it's Christmas and my heart is open wide

       Gonna give you something so you know what's on my mind

       A gift real special, so take off the top

       Take a look inside - It's my dick in a box

       Not gonna get you a diamond ring

       That sort of gift don't mean anything

       Not gonna get you a fancy car

       Girl ya gotta know you're my shining star

       Not gonna get you a house in the hills

       A girl like you needs somethin' real

       Wanna get you somethin' from the heart

       Somethin' special girl

       It's my dick in a box, my dick in a box babe

       It's my dick in a box, my dick in a box girl

       See I'm wise enough to know when a gift needs givin' (yeah)

       And I got just the one, somethin' to show ya that you are second to none

       To all the fellas out there with ladies to impress

       It's easy to do just follow these steps

       One：Cut a hole in a box

       Two：Put your junk in that box

       Three：Make her open the box

       And that's the way you do it

       It's my dick in a box… my dick in a box babe

       It's my dick in a box, my dick in a box girl

       Christmas; dick in a box

       Hanukkah; dick in a box

       Kwanzaa; a dick in a box

       Every single holiday a dick in a box

       Over at your parent's house a dick in a box

       Mid day at the grocery store a dick in a box

       Backstage at the CMA's a dick in a box (yeah-wow-wow-wow-wow-wow)

       A dick in a box…

       /song/9457023

VB RichTextBox 字体颜色

       '在窗体上画一个RichTextBox1、一个Button1。

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim PrintDoc As New Printing.PrintDocument

        AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText

        PrintDoc.Print()

        End Sub

        Private Sub PrintText(ByVal sender As Object, ByVal ev As Printing.PrintPageEventArgs)

        ev.Graphics.DrawString(RichTextBox1.Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 120, 120)

        ev.HasMorePages = False

        End Sub

       ’中文处理起来有点麻烦，需要作一些转换，试一下 ：

       Private Sub Command1_Click()

        Dim s1 As String, s2 As String

        s1 = "成功": s2 = "失败"

        With RichTextBox1

        .SelStart = 0

        .SelLength = Len(.Text)

        .SelColor = vbBlack

        End With

        setselectfontcolor s1, vbGreen

        setselectfontcolor s2, vbRed

       End Sub

       Private Sub Form_Load()

        RichTextBox1.Text = "打开文件成功成功 失败 失败（这行显示为绿色）" & vbNewLine & "打开文件失败 (这行显示为红色)失败"

       End Sub

       Function setselectfontcolor(s, mycolor)

        Dim i As Long, n As Long

        With RichTextBox1

        For i = 0 To LenB(StrConv(.Text, vbFromUnicode))

        n = .Find(s, i)

        If n <> -1 Then

        .SelStart = n

        .SelLength = Len(s)

        .SelColor = mycolor

        i = LenB(StrConv(Left(.Text, n), vbFromUnicode)) + LenB(StrConv(s, vbFromUnicode)) - 1

        Else

        Exit For

        End If

        Next

        End With

       End Function

       今天关于“mid box”的讲解就到这里了。希望大家能够更深入地了解这个主题，并从我的回答中找到需要的信息。如果您有任何问题或需要进一步的信息，请随时告诉我。