 |
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.
|
|
|
|
|
|
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"
也不行
|
|
|
|
|
|
又話說好久都沒用過VB寫程序了
VB6中的窗口程序很難使用XP風格
|
