Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("撕裂你！！！！！！！！！" & Chr(10) & _
               "把你撕成碎片！！！！！！！！！！ " & Chr(10) & _
               "我是爱激的男朋友！ " & Chr(10) & _
               "不准你欺负我女朋友！！！！！！！！！！！ ", _
               MsgBoxStyle.Critical, "张树人")
        MsgBox("我要把你们撕成碎片！" & Chr(10) & _
               "把一切娜环无情论者全都撕裂！！！！！！！！ ", _
               MsgBoxStyle.Critical, "爱激")
        MsgBox("你们别活了！" & Chr(10) & _
               "全都给我自杀去！" & Chr(10) & _
               "阿瓦达索命！！！！！！！！！！！！ ", _
               MsgBoxStyle.Critical, "爱激")
        MsgBox("迟早有一天我要把你们全都给撕成碎片！！！！！！！！ ", MsgBoxStyle.Critical, "爱激")
        MsgBox("别再让我看到谁说过山车没有生命！" & Chr(10) & _
               "永远别再让我看到！" & Chr(10) & _
               "我只要看到就想撕裂！" & Chr(10) & _
               "别把我惹急了！" & Chr(10) & _
               "谁也不可以欺负我朋友！", _
               MsgBoxStyle.Critical, "爱激")
        MsgBox("迟早有一天我要把你们全都给撕成碎片！！！！！！！！" & Chr(10) & _
               "永远无法组合！！！！！！！！！！！！！！！！！！！！！！！！！！！！", _
               MsgBoxStyle.Critical, "爱激")
        MsgBox("哈哈哈，" & Chr(10) & _
               "你懂什么叫骑士吗，" & Chr(10) & _
               "你懂什么叫骑士团吗，" & Chr(10) & _
               "骑士是扶危救困的英雄，" & Chr(10) & _
               "你们这些鸟人算哪门子骑士！", MsgBoxStyle.Critical, "瑞奇")
        Close()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

【Form1.Designer.vb】

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form
    'Form 重写 Dispose，以清理组件列表。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer
    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改它。
    '不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(12, 12)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "进入"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(93, 12)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(75, 23)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "退出"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(181, 50)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "阿斯兰侃吧"
        Me.ResumeLayout(False)
    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
End Class

【Form1.resx】

<?xml version="1.0" encoding="utf-8"?>
<root>
  <!--
    Microsoft ResX Schema
   
    Version 2.0
   
    The primary goals of this format is to allow a simple XML format
    that is mostly human readable. The generation and parsing of the
    various data types are done through the TypeConverter classes
    associated with the data types.
   
    Example:
   
    ... ado.net/XML headers & schema ...
    <resheader name="resmimetype">text/microsoft-resx</resheader>
    <resheader name="version">2.0</resheader>
    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
        <value>[base64 mime encoded serialized .NET Framework object]</value>
    </data>
    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
        <comment>This is a comment</comment>
    </data>
               
    There are any number of "resheader" rows that contain simple
    name/value pairs.
   
    Each data row contains a name, and value. The row also contains a
    type or mimetype. Type corresponds to a .NET class that support
    text/value conversion through the TypeConverter architecture.
    Classes that don't support this are serialized and stored with the
    mimetype set.
   
    The mimetype is used for serialized objects, and tells the
    ResXResourceReader how to depersist the object. This is currently not
    extensible. For a given mimetype the value must be set accordingly:
   
    Note - application/x-microsoft.net.object.binary.base64 is the format
    that the ResXResourceWriter will generate, however the reader can
    read any of the formats listed below.
   
    mimetype: application/x-microsoft.net.object.binary.base64
    value   : The object must be serialized with
            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            : and then encoded with base64 encoding.
   
    mimetype: application/x-microsoft.net.object.soap.base64
    value   : The object must be serialized with
            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.bytearray.base64
    value   : The object must be serialized into a byte array
            : using a System.ComponentModel.TypeConverter
            : and then encoded with base64 encoding.
    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
    <xsd:element name="root" msdata:IsDataSet="true">
      <xsd:complexType>
        <xsd:choice maxOccurs="unbounded">
          <xsd:element name="metadata">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" />
              </xsd:sequence>
              <xsd:attribute name="name" use="required" type="xsd:string" />
              <xsd:attribute name="type" type="xsd:string" />
              <xsd:attribute name="mimetype" type="xsd:string" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="assembly">
            <xsd:complexType>
              <xsd:attribute name="alias" type="xsd:string" />
              <xsd:attribute name="name" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="data">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
              <xsd:attribute ref="xml:space" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="resheader">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" />
            </xsd:complexType>
          </xsd:element>
        </xsd:choice>
      </xsd:complexType>
    </xsd:element>
  </xsd:schema>
  <resheader name="resmimetype">
    <value>text/microsoft-resx</value>
  </resheader>
  <resheader name="version">
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAQAEBACAAEAAQCwAAAARgAAABAQEAABAAQAKAEAAPYAAAAQEAAAAQAIAGgFAAAeAgAAEBAAAAEA
        IABoBAAAhgcAACgAAAAQAAAAIAAAAAEAAQAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAA
        AAAEgAAAAQAAAAiQAAAFJAAAGJAAAApYAAAdUAAACygAAA2uAAAO0AAAC6wAAAbUAAAD2AAAAeAAAAAA
        AAD//wAA+H8AAPgfAADwBwAA8AMAAOADAADgAwAA4AMAAOADAADwAQAA8AMAAPADAAD4AwAA/AcAAP4f
        AAD//wAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA
        gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAA
        BxNwAAAAAAADAgEAAAAAAHEhMwdwAAAAMDFhMDcAAAdzEhITFgAAA3NxMXMxAAAHgzMwM3IAAAc3NzNT
        MQAAAIt5MzNzcAAAeDe3E3MAAACLi3MzMQAAAAh4k3N3AAAAAIuLNzAAAAAACIiAAAAAAAAAAAAAAP//
        AAD4fwAA+B8AAPAHAADwAwAA4AMAAOADAADgAwAA4AMAAPABAADwAwAA8AMAAPgDAAD8BwAA/h8AAP//
        AAAoAAAAEAAAACAAAAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAAghKQAKJzEACSkzAAsv
        OgALMT0AFDA4AAwzQAANNkMADTlIAA48SwAOPk4AJjxDABBATwAPQVEAEENTABBDVAAQRVYAEUdZABFI
        WgASSlwAKkJKAD5RVwA2VF4AP1dfABJPYgAUTmEAE1NnABRSZgATVGkAFFVqABVWbAAVWG4AGl1yABpf
        dgAgXXEAF2J7ABhjfABebnIAbHp+ABloggAfaoMAGWqFABxshwAdcIsAG3OPAB92kgAcdpQAHn2dAC5t
        ggAidZAAIXyaACF+nQBBcIAAU3SJACmCnwAnhqUAKYelACaIqAAji60AJ4yuACuKqQAsjKsAOIqlADeO
        qwA7ka8AJZCzAC+UtQAtlrkAOZSyADaavABDgpcAS4CRAEyBlABrgYkARI2kAE6NogBfj6AAVpKlAGeb
        rABvmq0AbJ2tAEGgvwBVpb8AaKi+AHOrvwBOqMUAXKnDAGGwygBstc0AcLDGAHO3zgB/u84Ae73TAI65
        xwCJuckAi7zNAJO4yACMwtUAlsXTAL3Z4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAA
        AAAAAAAAADUNFxgAAAAAAAAAAAAAAAATCwsEBgEAAAAAAAAAAABOBQgLDg4DFSYAAAAAAAAAIQgJDhIT
        EBkVJwAAAAAAT0cjEA4OEBktExYAAAAAADVRMRofEwsTOywMAAAAAABNYkUlJCATEy46AgAAAAAANklA
        MzAqHxMlOAQAAAAAAABUVz86MCofITgaSgAAAAAAUVpMRUItID1DGQAAAAAAAGFVW1NGMyoyPR8AAAAA
        AAAAX1xZVkQrKjdIAAAAAAAAAABjXVhSOEtOAAAAAAAAAAAAAGRfX14AAAAAAAAAAAAAAAAAAAAAAAAA
        AAD//wAA+H8AAPgfAADwBwAA8AMAAOADAADgAwAA4AMAAOADAADwAQAA8AMAAPADAAD4AwAA/AcAAP4f
        AAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAADjpIIQw1QiwJKDIQBx8nCwQUGQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAACzA8BxFMX8kOPk38CzA80gknMcYHIChlBx8mXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAABNXbToQR1n9Dj5O/w06SP8LLzv/CCUu8gcgKP0HHyYrBh0jLwAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAB9ZbA8aaYO7CzE9/w02Q/8PP07/EENT/xBGV/8JKTP/CCUu2wcfJqUGGyIqAAAAAAAA
        AAAAAAAAAAAAAAAAAAA9i6RsG11y/wwzQP8NOUj/EENU/xBFVv8RR1n/D0JT/xJPYv8HIyzbBx8mlwQT
        FwQAAAAAAAAAAAAAAAA6YGwBSoid1kOCl/8gXXH/D0FR/xBEVf8QQ1P/D0FR/xNTZ/8bc4//EUha/wcf
        J8YFGR8wAAAAAAAAAAAAAAAAbJ+wQEBwgP5sna3/Lm2C/xRNYf8UVGn/EUlb/w48S/8SSl3/I4ut/x1w
        i/8HISnfBhshVQAAAAAAAAAAAAAAAIOzw0lfj6D+jMLV/zmUsv8YY3z/F2J7/xVYbv8RR1n/Ekpc/x92
        kv8miKj/CCUv/AYbIlYAAAAAAAAAAAAAAAB4obAcPmN64kyBlP83jqv/IXya/x58nP8aa4X/FVZs/xFI
        Wv8aX3b/J4al/wsvOv8JJzFPAAAAAAAAAAAAAAAAAAAAAFaGmydjpbz2XKnD/ziKpf8njK7/Hn6e/xlo
        gv8VVmv/GV1z/ymHpf8UT2L/CzA8mgAAAAAAAAAAAAAAAAAAAAAAAAAAVomf2XCwxv9OjaL/O5Gv/yWQ
        s/8cdpT/FVdt/yuKqf8vlLX/FFJm/w47SXoAAAAAAAAAAAAAAAAAAAAASm19CmaasbNzq7//c7fO/1Wl
        v/82mrz/IH6d/xlqhf8idZD/LIyr/xNUaf8PPk43AAAAAAAAAAAAAAAAAAAAAAAAAABrmK0cgbXI73+7
        zv9stc3/TqjF/y2Wuf8cbIf/H2qD/yN/nf4VW3HEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIGy
        wjyBucvTer3T/WGwyv9BoL//KYKf/z6JofYteZHNGWN6NwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAXIiXBH+2yIKCt8nrda2/2Gmitb9ZkqV3OnGDCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
        AAAAAAAAAAAAAAAAAAAAAAAAV210AVNrcgQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD4PwAA8B8AAPAH
        AADgAwAA4AEAAMABAADAAQAAwAEAAMABAADgAQAA8AEAAOABAADwAwAA+AMAAPwHAAD/PwAA
</value>
  </data>
</root>

又话说vb文件可以直接用dw打开

代码颜色还是很好

I was ignored.
I was ignored by him.

http://tieba.baidu.com/p/1408369994

c++2008 messagebox的问题 2011-03-13 18:17 巨大八爪鱼 | 分类：C/C++ | 浏览528次 MessageBox(0,TEXT("金额过大"),TEXT("提示"),0);
错误信息：
------ 已启动生成: 项目: test, 配置: Debug Win32 ------
正在编译...
张庶仁.cpp
d:\my documents\visual studio 2008\projects\test\test\张庶仁.h(316) : error C3861: “TEXT”: 找不到标识符
d:\my documents\visual studio 2008\projects\test\test\张庶仁.h(316) : error C3861: “TEXT”: 找不到标识符
test.cpp
d:\my documents\visual studio 2008\projects\test\test\张庶仁.h(316) : error C3861: “TEXT”: 找不到标识符
d:\my documents\visual studio 2008\projects\test\test\张庶仁.h(316) : error C3861: “TEXT”: 找不到标识符
正在生成代码...
生成日志保存在“file://d:\My Documents\Visual Studio 2008\Projects\test\test\Debug\BuildLog.htm”
test - 4 个错误，0 个警告
========== 生成: 成功 0 个，失败 1 个，最新 0 个，跳过 0 个 ==========
#include "tchar.h"
也不行

http://zh.arslanbar.net/post.php?i=12331

又話說好久都沒用過VB寫程序了
VB6中的窗口程序很難使用XP風格