vb6代码合集（vb6 编译）

今天给各位分享vb6代码合集的知识，其中也会对vb6 编译进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、高分求一段VB6.0的打印代码
• 2、求VB6中所有代码
• 3、求一个vb6的代码
• 4、求VB6.0的一些代码
• 5、用VB6 编写简单代码

高分求一段VB6.0的打印代码

示例代码如下：

Printer.ScaleMode = vbMillimeters '单位为毫米

Printer.Width = 100

Printer.Height = 60

'Printer.PaperSize = 1

Printer.Print "hello world!"

Printer.EndDoc

说明：

Printer.Width = 100 设置纸的宽度Printer.Height = 60设置纸的高度，你可以修改成合适的值。

Printer.PaperSize = 1可以设置预定义的标准纸张。含义如下表：

常量 值 纸张

vbPRPSLetter 1 Letter, 8 1/2 x 11 in.

vbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in.

vbPRPSTabloid 3 Tabloid, 11 x 17 in.

vbPRPSLedger 4 Ledger, 17 x 11 in.

vbPRPSLegal 5 Legal, 8 1/2 x 14 in.

vbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in.

vbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in.

vbPRPSA3 8 A3, 297 x 420 mm

vbPRPSA4 9 A4, 210 x 297 mm

vbPRPSA4Small 10 A4 Small, 210 x 297 mm

vbPRPSA5 11 A5, 148 x 210 mm

vbPRPSB4 12 B4, 250 x 354 mm

vbPRPSB5 13 B5, 182 x 257 mm

vbPRPSFolio 14 Folio, 8 1/2 x 13 in.

vbPRPSQuarto 15 Quarto, 215 x 275 mm

vbPRPS10x14 16 10 x 14 in.

vbPRPS11x17 17 11 x 17 in.

vbPRPSNote 18 Note, 8 1/2 x 11 in.

vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in.

vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in.

vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in.

vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in.

vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in.

vbPRPSCSheet 24 C size sheet

vbPRPSDSheet 25 D size sheet

vbPRPSESheet 26 E size sheet

vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm

vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm

vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm

vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm

vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm

vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm

vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm

vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm

vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm

vbPRPSEnvItaly 36 Envelope, 110 x 230 mm

vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in.

vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in.

vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in.

vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in.

vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in.

以下两行用于打印：

Printer.Print "hello world!"

Printer.EndDoc

求VB6中所有代码

Print"XXX" ，这只会在屏幕上打印XXX

计算器加法输入 CmodAdd，这是要什么的

求一个vb6的代码

Private Sub Command1_Click()

Randomize

Text1.Text = Int(Rnd * 99 + 1)

If Val(Text1.Text) = 20 And Val(Text1.Text) = 50 Then

Text2.Text = 123

Else

Text2.Text = 456

End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

求VB6.0的一些代码

快速关机

shell "shutdown.exe -s -t 0" , vbhide

快速重启

shell "shutdown.exe -r -t 0" , vbhide

死机

在FORM_LOAD中写入

shell app.path "\" app.exename ".exe"即可

发送图片

const BUF_SIZE = 1024

Dim iFile As Integer

Dim bytBuffer() As Byte

Dim strFileName As String

Winsock1.Protocol = sckUDPProtocol

Winsock1.LocalPort = 3008

Winsock1.RemotePort = ...

Winsock1.RemoteHostIP = ...

strFileName = ...

iFile = FreeFile

Open strFileName For Binary Access Read As iFile

Do Until EOF(iFile)

ReDim

bytBuffer(IIf(LOF(iFile)-Seek(iFile)BUF_SIZE,BUF_SIZE,LOF(iFile)-Seek(iFile)))

Get iFile,,bytBuffer

Winsock1.SendData bytBuffer

Loop

Close iFile

用VB6 编写简单代码

Private Sub Command1_Click()

Dim a As Long, b As Long, c As Long, d As Long

a = Text1.Text

b = Text2.Text

c = Text3.Text

d = b * c - b * a

Text4.Text = d

End Sub

四个text和一个command控件！！

vb6代码合集的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb6 编译、vb6代码合集的信息别忘了在本站进行查找喔。