Question

vb画出射线后,怎样设置射线为随机颜色

Answer 1

Private Sub Form_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer1.Interval = 50
End Sub

Private Sub Form_Resize()
Me.Scale (-1000, 1000)-(1000, -1000)
End Sub

Private Sub Timer1_Timer()
Line (0, 0)-(Int(Rnd * 2000) - 1000, Int(Rnd * 2000) - 1000), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub

追问

谢谢啦

Answer 2

病情分析：
你好，X线的辐射不是很大的，一般只要不是长时间辐射没有影响的，一个月左右就可以怀孕的
指导意见：
建议您平时多运动，营养要合理，孕前可以去医院做个全面检查，争取优生优育。