想用VB6.0做一个小程序,里面就一张图片,打开10秒后自动关闭.求详细制作方法,还有所需要的控件,属性设置

Posted 2023-03-16

最重要的是还要详细代码...坐等VB高人出现
本人新手+菜鸟...如果要做成全屏的,把程序上面的最小化,最大化和关闭按纽都去掉,该怎么做?

Picture控件 和Timer 控件各一个，其中Picture控件用来加载图片
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static n As Integer
If n = 10 Then End
n = n + 1
End Sub 参考技术A 添加一个timer控件、一个Picture1控件，添加一张图片，代码如下：
Dim I As Integer
Private Sub Form_Load()
I = 10
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
I = I - 1
If I = 0 Then
Picture1.Visible = False
End If
End Sub 参考技术B 前面的一楼二楼，已经回答得很好了
maxbuttn=false 取消最大化
minbuttn=false 取消最小化
但是取消关闭按钮好像不能直接改，可以用对话框代替 参考技术C 先把窗体最大化，然后选窗体属性，borderstyle\0-none
别的问题就按他们说的吧，我也没看对不对。

vb中图片框如何清除里面的所有内容？

具体操作步骤如下：

一、打开VB软件，在窗体上面添加一个列表框，如下图所示。

二、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

三、在窗体上面，添加一个命令按钮，如下图所示。

四、设置，一个命令按钮的属性，名称别为“清除”，如下图所示。

五、双击“清除”命令按钮，编辑其代码，如下图所示。

六、运行程序，验证结果。选择“政治”，点击“清除”命令按钮。

七、则列表框中“政治”项目消失。如下图所示。

参考技术A

VB可对图片框的Picture属性使用LoadPicture 函数来实现清除里面的所有内容。

PictureBox 控件

PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF
文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。

Picture 属性

返回或设置控件中要显示的图片。对于 OLE 容器控件，在设计时不可用在运行时为只读。

LoadPicture 函数

将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

Cls 方法

清除运行时 Form 或 PictureBox 所生成的图形和文本。

以下代码体现上述各知识点的应用：

Private Sub Command1_Click()
    Picture1.Picture = LoadPicture("") ' 可删除图片框所有内容
End Sub

Private Sub Command2_Click()
    Picture1.Cls '只能清除绘制的图
End Sub

Private Sub Form_Load()
    Picture1.Picture = LoadPicture("C:\\Sunset.jpg")
    Picture1.ForeColor = QBColor(15)
    Picture1.Print Now
End Sub

参考技术B Picture1.Cls
Picture1.Picture = LoadPicture("")本回答被提问者采纳 参考技术C Picture1.Picture = LoadPicture("")
Picture1.Cls 参考技术D Picture1.Cls