vb弹出窗口

发布网友发布时间：2023-08-01 16:41

共1个回答

热心网友时间：2024-11-29 09:45

1。新建一个form,取名frmText
2。在frmText上添加一个label1
3。给frmText添加代码:
Option
Explicit
Private
Sub
Form_Load()
Label1.Caption
=
"Ag
Al
Zn;
liquis
projection,
ref.
key:
40Geb,
source
data"
&
vbCrLf
&
_
"Alloy
System:
Ag
Al
Zn"
&
vbCrLf
&
_
"Phase
Diagram:
complete
liquis
projection
given;"
&
vbCrLf
&
_
"complete
c-T
diagrams
given
of
the
sectionswith
constant
Zn
contents
of
60
wt.
%,"
&
vbCrLf
&
_
"70
wt.
%,
80
wt.
%,
85
wt.
%
and
90
wt.
%,
(published
diagrams
in
wt.
%)"
&
vbCrLf
&
_
"Data
Source:
E.
Gebhardt,
Das
System
Zink-Aluminium-Silber."
&
vbCrLf
&
_
"ZEITSCHRIFT
FUER
METALLKUNDE,
Vol.
32
(12),
p.
407-411
[1940]"
&
vbCrLf
&
_
"CODEN:
ZEMTAE"
&
vbCrLf
&
_
"Publication
Order
No.:
90520"
End
Sub
4。在相图那个按钮CLICK事件里写一句:frmText.show