vb问题：怎样可以让picturebox中的填充属性在每次鼠标按下后就变化一次。

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:24:14
就只有0和1之间的变化，而且是两个交替变化的

你要的代码来了,已经验证OK!!!

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Picture1.FillStyle = 0 Then
Picture1.FillStyle = 1
Exit Sub
End If
If Picture1.FillStyle = 1 Then
Picture1.FillStyle = 0
Exit Sub
End If
End Sub

大家都在学VB,以后相互关照哦!!!

用随机数(Rnd),可以设定范围,每次鼠标按下后就生成一个随机数,这个随机数就是picturebox中的填充属性

private sub command1_click()
picturebox.fillstyle = fix(rnd * 8)
end sub

用随机数吧。我把过程给你写出了。
一共有八种填充样式。