二，组合科2，勇士大闯关游戏和生活化乐于内容丰富，汉字dos和汉字编程一类玩具工具。

[zzz19760225]

目的：
寻找搜索界面页面切换的C语言图形代码，其界面页面具有流水线输送效应，轮流循环执行流水线上结构和数组等变量单元，变量单元的内容预设或空置。
预备页面顺序执行和切换的游戏（太阁立志传五页面模式）

[zzz19760225]

“窗体”，也就是页面界面

打开窗体1
form1.show
关闭窗体1
unload form1

打开窗体2
form2.Show
关闭窗体2
unload form2

相对地址选择图片
Private Sub Form_Load()
Form1.Picture = LoadPicture(App.Path & "\背景图片.jpg")
End Sub

百度
Paradox_y
2010-10-28 · TA获得超过369个赞
调用窗体事件：
form.hide 隐藏窗体
form.show 显示窗体
设置窗体属性：
Form1.Visible = True 窗体可见
Form1.Visible = False 窗体不可见

“
窗体图片最大化，先建立Me.AutoRedraw = True，产生Form_Resize；
然后选择Form_Resize，完成后面Me.PaintPicture。
Private Sub Form_Click()
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
”

(
百度，"vb6.0显示txt"，是可以的。只是文本内容是不分行的。
vb6.0text控件怎么换行,
百度知道
匿名用户
2个回答 - 回答时间: 2013年6月24日
最佳答案: 在属性里把MultiLine属性设置为True,就可以自动换行了。
)
“

vb6.0显示txt
在VB6.0中，显示txt文件内容可以通过多种方式实现，其中一种简单的方法是使用文本框（TextBox）控件。以下是一个简单的例子，演示如何在VB6.0中读取并显示一个txt文件的内容：

首先，在VB6.0的IDE中创建一个新的项目。

在窗体上放置一个文本框（TextBox）控件，并将其名称设置为TextBox1。

添加一个按钮（CommandButton）控件，在其Click事件中添加代码来加载并显示txt文件内容。

以下是按钮Click事件处理程序的示例代码：

代码： 全选

Private Sub Command1_Click()
    Dim fNumber As Integer
    Dim txtContent As String
    ' 获取文件句柄
    fNumber = FreeFile()
    ' 打开文件，假设txt文件名为"example.txt"，位于程序运行目录下
    Open "example.txt" For Input As #fNumber
    ' 读取文件内容并显示在文本框中
    txtContent = Input$(LOF(fNumber), fNumber)
    Text1.Text = txtContent
    Close #fNumber
End Sub

确保"example.txt"文件位于可执行文件的同一目录下，或者提供正确的文件路径。这段代码会在用户点击按钮时触发，并将文本文件的内容显示在名为TextBox1的文本框中。

”

Public Sub SetFormSize(frm As Form)
frm.Width = 5000
frm.Height = 3570
End Sub

Private Sub Form1_Resize()
SetFormSize Me
End Sub

Private Sub Command1_Click()
Form2.Show
Unload Form1
End Sub

Private Sub Form2_Resize()
SetFormSize Me
End Sub

Private Sub Command1_Click()
Form1.Show
Unload Form2
End Sub
为什么会一边错开循环斜行？

yfcp
2015-12-17 · 百度知道合伙人软件行家
关注
VB将文本框的数据读取和保存到文本文件中，实际上就是VB对txt的读写操作。
相关代码如下：
1、vb读取txt文件内容，以下代码实现把电脑txt中的内容读取到程序文本框text1中。
Private Sub Command1_Click()
Open App.Path & "\123.txt" For Input As #1 '备注：App.Path & "\123.txt"是程序目录下的123.txt
Dim Lines As String
Line Input #1, Lines '读取文本内容
Close #1
text1.Text = Lines
End Sub
2、vb写入txt内容，实现文本框的数据写入到文本文件中。
Private Sub Command2_Click()
Dim a As String
a = text1.Text '先读取出text1内容
Open App.Path & "\123.txt" For Output As #1
Print #1, a '把a的值写入123.txt
Close #1
End Sub

读取文本需要按按钮，而不是直接显示。而且只能显示第一行

form1主页面main
Private Sub Command1_Click()
Form2.Show
Unload Form1
End Sub

“
Public Sub ResizeForms()
Dim frm As Form
For Each frm In Forms
If frm.Name <> "Form1" Then ' 排除主窗体Form1
frm.Width = 500
frm.Height = 400
End If
Next frm
End Sub

Private Sub Command2_Click()
Form5.Show
Unload Form1
End Sub

Private Sub Form_Load()
ResizeForms
End Sub

其余窗体页面
建立两个按钮，上一页按钮，下一页按钮。
form2代码
Private Sub Command1_Click()
Form3.Show
Unload Form2
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Form2
End Sub

form3代码
Private Sub Command1_Click()
Form1.Show
Unload Form3
End Sub

Private Sub Command2_Click()
Form2.Show
Unload Form3
End Sub
”

VB6.0发生找不到图片的错误,如何忽略
在VB6.0中，如果遇到“找不到图片”的错误，通常是指在程序中引用了一个不存在的图片文件，或者图片路径不正确。为了避免程序崩溃，可以使用错误处理结构来捕获这个错误，并采取相应的措施来忽略它。

以下是一个简单的示例代码，展示了如何使用On Error和Resume Next语句来忽略错误：
Private Sub Command1_Click()
On Error GoTo ErrHandler ' 开始错误处理
' 假设你尝试加载的图片路径为 "C:\example.jpg"
Picture1.Picture = LoadPicture("C:\example.jpg")
Exit Sub
ErrHandler: ' 错误处理代码
' 这里可以输出错误信息到调试窗口或者用其他方式通知用户
Debug.Print "找不到图片文件"
Resume Next ' 跳过出错的语句，继续执行后续代码
End Sub
在这个例子中，如果LoadPicture函数尝试加载一个不存在的图片文件，那么会触发错误处理程序，程序会打印一条消息而不是崩溃。Resume Next会使程序跳过出错的语句，继续执行后续的代码。

请注意，在实际应用中，你可能需要根据具体情况来决定如何处理错误，例如是否需要用默认图片来替换缺失的图片，或者是否要提示用户图片缺失等。

VB6.0指定范围显示全图
在VB6.0中，要在PictureBox控件中显示指定范围的全图，可以通过设置Picture控件的Scale属性来实现。Scale属性有三个选项：

vbTile：图片会自动重复。

vbCenter：图片居中显示，不缩放。

vbScale：图片按比例缩放以适应PictureBox的大小。

如果你想显示指定范围的全图，可以将PictureBox的Width和Height设置为你想要的大小，然后将Picture的Scale属性设置为vbScale。

以下是一个简单的例子，演示如何在PictureBox中显示一个指定范围的全图：

Private Sub Form_Load()
' 设置PictureBox的大小
Picture1.Width = 200
Picture1.Height = 150

代码： 全选

' 设置Picture控件的属性为vbScale
Picture1.ScaleMode = 3 ' vbScale 的值为 3

' 加载图片
Picture1.Picture = LoadPicture("C:\path\to\your\image.jpg")

End Sub
在这个例子中，PictureBox的大小被设置为200x150像素，图片会按比例缩放以填充整个PictureBox。注意替换"C:\path\to\your\image.jpg"为你的图片文件路径。

VB显示文本内容
我想在form上面显示某个TXT内的内容...而且还要自动分行

Rainbow_Route
2007-11-24 · TA获得超过646个赞

添加如下代码到窗体，然后运行时点下窗体就可以看到效果。
Private Sub Form_Click()
Form1.Cls
Dim Path, Tmp
Path = "d:\test.txt" '这个path改成你的txt文件全路径
Open Path For Input As #1
While Not EOF(1)
Line Input #1, Tmp
Print Tmp
Wend
Close #1
End Sub

1372355088
推荐于2017-09-19 · TA获得超过1070个赞

'楼主您好！

'如果是Load的话，

'你可以吧Form的属性AutoRedraw调成Ture，

'就行了，print输出的内容可以在窗体上显示出来

'至于位置吗，比如说你想往后来点就这样

Print " 显示内容"

'记得要带双引号哦！

'再比如你想下来点就这样

Print

Print

Print "显示内容"

'好了，这样输出内容就在第三行
'如果是颜色，就调试Form的Forecolor，
'比如调成黄色输出的文字就是黄色的了。
'大小可以调试Form的属性Font
'改变输出文字的大小
'例：
'回答很详细，望采纳

humanhome
2012-12-09 · TA获得超过265个赞

通常调试信息才会用 print 这样的输出，而调试可以用 Debug.Print 方法输出，输出的内容会在“立即窗口”中出现，你可以在VB的“视图”->"立即窗口"菜单中调出立即窗口查看输出的信息。
如果你只是想问 TextBox 这个控件如何用可以显示多行文本，那么你需要先将 TextBox 的 MultiLine 属性设置为 True，表示允许多行文本输出。然后再设置 ScrollBars 属性为 3 - VbBoth，表示支持垂直和水平滚动条，然后再对 TextBox 的 Text 属性赋值，如果你的文本包含换行符，那么文本框也会显示换行效果的文本出来。如：
Private Sub Form_Load()
Text1.Text = ""
For i = 0 To 2
TextPrint Chr(Asc("a") + i)
Next i
End Sub
' 这个是取代你原来使用的 Print 的函数
Private Sub TextPrint(ByVal outString As String)
Text1.Text = Text1.Text & outString & vbCrLf ' 这里的 vbCrLf 是换行符号
Text1.SelStart = Len(Text1.Text) - 1
End Sub

（好像不管用，用不起来？）
桑景彰n8
2008-03-02 · 超过13用户采纳过TA的回答
关注
打开
Private Sub Command1_Click()
'打开同目录下的程序
Shell App.Path & "\a.exe"
'如果不是同目录的就直接是相对路径可以了.如：
Shell "C:\a.exe"
End Sub
关闭
Private Sub Command2_Click()
Shell "taskkill /f /im a.exe", vbHide
'这里a.exe是进程名
End Sub

窗体颜色
Private Sub Form_Load()
' 设置窗体的背景颜色为蓝色
Me.BackColor = vbBlue
End Sub

Private Sub Form_Load()
' 设置窗体的背景颜色为自定义的RGB颜色，例如浅绿色
Me.BackColor = RGB(140, 230, 140)
End Sub

按钮颜色
Private Sub Command1_Click()
' 设置按钮的背景颜色为红色
Command1.BackColor = vbRed
End Sub

[zzz19760225]

VB6.0的窗体form，图片image，图片容器picturebox三种图片,默认，相对，指定三类显示。

1 form :
相对
Private Sub Form_Load()
Form1.Picture = LoadPicture(App.Path & "\1.jpg")
End Sub
指定

2 image :
相对
Private Sub Image1_Click()

End Sub
指定

3 Picturebox :
相对
Private Sub Picture1_Click()

End Sub
指定

[zzz19760225]

form
1

2

3

frame
1

2

3

[zzz19760225]

VC6.0输出文字
在Visual C++ 6.0中，您可以使用Windows API函数TextOut来在窗口中输出文本。以下是一个简单的例子，展示了如何在一个基本的Windows窗口应用程序中输出文字：

打开VC6.0，创建一个新的Win32 Application项目。

在Wizard中选择 "A simple application"。

添加以下代码到 WinMain 函数中，以创建一个窗口并在其上输出文本：

代码： 全选

#include <windows.h>
LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    HDC hdc;
    PAINTSTRUCT ps;
    switch (uMsg) {
    case WM_PAINT:
        hdc = BeginPaint(hwnd, &ps);
        TextOut(hdc, 10, 10, TEXT("Hello, World!"), lstrlen(TEXT("Hello, World!")));
        EndPaint(hwnd, &ps);
        return 0;
    case WM_DESTROY:
        PostQuitMessage(0);
        return 0;
    }
    return DefWindowProc(hwnd, uMsg, wParam, lParam);
}

代码： 全选

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {
    WNDCLASS wc = {0};
    wc.lpfnWndProc = WindowProc;
    wc.hInstance = hInstance;
    wc.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
    wc.lpszClassName = TEXT("HelloWorld");
    if (!RegisterClass(&wc)) {
        MessageBox(NULL, TEXT("RegisterClass failed!"), TEXT("Error"), MB_ICONERROR);
        return 0;
    }
    HWND hwnd = CreateWindow(
        wc.lpszClassName, TEXT("Hello, World!"),
        WS_OVERLAPPEDWINDOW,
        CW_USEDEFAULT, CW_USEDEFAULT,
        300, 200,
        NULL, NULL, hInstance, NULL
    );
    if (hwnd == NULL) {
        MessageBox(NULL, TEXT("CreateWindow failed!"), TEXT("Error"), MB_ICONERROR);
        return 0;
    }
 
ShowWindow(hwnd, nCmdShow);
UpdateWindow(hwnd);
 
MSG msg = {0};
while (GetMessage(&msg, NULL, 0, 0)) {
    TranslateMessage(&msg);
    DispatchMessage(&msg);
}
 
return (int) msg.wParam;
}

编译并运行程序，您应该会看到一个窗口，窗口标题为 "Hello, World!"，并在窗口中间显示文本 "Hello, World!"。

提示：AI自动生成，仅供参考

在VC6.0中执行CMD命令，可以使用system()函数。这个函数可以启动一个新的进程来运行指定的命令，并等待该进程结束。
#include <stdlib.h> // 引入标准库以使用system函数

int main() {
// 假设我们要执行的CMD命令是"dir"，列出当前目录下的文件和文件夹
system("dir");
return 0;
}
为什么调试可以看到界面，EXE就不执行，看不到了呢？
在中国穿和服会制造动乱，应该被舆论和法律处理限制，建立针对日本的和平立法，日本不真正投降，日本的一切就需要考虑利益该不该存在。（在家里玩就可以了，不要出来祸害环境。民间用打架行政或刑法处罚，对日本行为进行控制。而中国那些西方和私有化法律，就是一傻逼玩意）

[zzz19760225]

01234567890123456789
1
2
3
4
5
6
7
8
9

[zzz19760225]

01234567890123456789
1
2
3
4
5
6
7
8
9

[zzz19760225]

人民txt为主，进制阵列集合图书馆。
pcl_test：
<script language=vbs>
Msgbox "hello"
</script>

CrLf：
HTA是HTML Application的缩写（HTML应用程序），是软件开发的新概念，直接将HTML保存成HTA的格式，就是一个独立的应用软件，双击就能运行，与VB、C++等程序语言所设计的软件没什么差别。原来网页中的工具栏、地址栏以及菜单栏在这个窗口里都没有被显示出来，还可以使用html中的绝大多数标签、脚本等，这就给予你对界面设计更多的控制权。（天哪，当我看到这句话的时候，心情是多么的激动，这不是专为vbs脚本设计的gui界面吗？）
与普通HTML网页相比，它多了HTA:APPLICATION标签，其实就是这个标签提供了一系列面向应用程序的功能，这个特殊的标签，允许你控制这个应用程序的用户界面（UI）。<HTA:APPLICATION>标签位于<HEAD>标签里，它允许你控制诸如是否在所含的窗口里显示一个标题栏，或者显示最大最小化按钮。<HTA:APPLICATION>标签还让你能够访问客户的机器而不用担心安全的限制。

[zzz19760225]

01234567890123456789
1
2
3
4
5
6
7
8
9

[zzz19760225]

form(
form
---load-----装入
---unload--卸装

---click-----鼠标单击
---dbclick--鼠标双击

---mousedown----down--按下鼠标
---mouseup--------up-----松开鼠标
---mousemove--mov--move--移动鼠标

---initialize-----预备准备开始(初始化)
---terminate----结束

---panit---绘图？

---resize--re改变--size数量大小

通用
---声明
command
picture
textbox
---mulitline--false > ture 自动换行
---text--------文本--下拉文本框输入
)