怎样才能在picturebox里画一个与photoshop相同效果的选区，谢谢

2005-01-17 05:59:17 158 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C# WinForm模拟流水灯：从硬件思维到软件实现的编程实战事件驱动编程是GUI开发的核心范式，其原理在于通过用户操作或系统事件触发预设的代码逻辑，实现界面与数据的动态交互。这种技术价值在于将复杂的异步流程封装为清晰的事件响应，极大提升了桌面应用的开发效率和用户体验。在工业控制、物联网监控等应用场景中，常需模拟硬件设备的可视化反馈，例如单片机上的流水灯效果。本文以C# WinForm为平台，通过定时器控件和PictureBox数组，构建了一个软件流水灯模拟器，演示了如何利用事件驱动和状态机实现顺序流动、对称闪烁等多种灯光模式，为从硬件思维过渡到软件开发的初学者提供了阅读详情

如题，谢谢

...全文

DFT实训教程笔记2（bibili版本）- Scan synthesis practice 文章目录Scan synthesis practice 本博文是博主记录DFT实训教程的笔记版本，此笔记并没有对所有的知识进行记录，仅仅以自身的认知水平，来记录了一些部分笔记并加上了自己的理解。 Scan synthesis practice How to design scan clock structure? 假设一块chip里面有好几十个clock domain，如果每一个clock domain都用一个scan clock虽然会非常清晰，但是IO数目肯定不够用。 clock group: 1、no 阅读详情

badboy168

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

viena 2005-01-18

打赏
举报

//是静止的怎样才让它动起来了呢!
擦掉原来的(用异或笔重画)，在新地方画，不就动了吗

badboy168 2005-01-18

打赏
举报

是上结，哪位仁兄还有更好的办法能实现类似photoshop那种动态的选区

badboy168 2005-01-18

打赏
举报

感谢 viena(维也纳nn-实心木头人石欠RUKYO) 和 laviewpbt(人一定要靠自己) 两位大哥

laviewpbt 2005-01-18

打赏
举报

感谢 viena(维也纳nn-实心木头人石欠RUKYO)阿姨才对！^-^

qiaobushi@ 2005-01-17

打赏
举报

是静止的怎样才让它动起来了呢!

laviewpbt 2005-01-17

打赏
举报

这个有点象，你看一下（代码比较乱啊）
picturebox+shape+timer

Dim TIM As Integer
Private Scol(15)
Private xxx1, xxx2, yyy1, yyy2, xcor0, xcor1, ycor0, ycor1 As Integer

Private Sub Form_Load()
picture1.BackColor = vbBlue
Shape1.BorderStyle = 3
Timer1.Interval = 200
Scol(0) = &H202020
Scol(1) = &H404040
Scol(2) = &H606060
Scol(3) = &H808080
Scol(4) = &HA0A0A0
Scol(5) = &HC0C0C0
Scol(6) = &HE0E0E0
Scol(7) = &HFFFFFF
Scol(8) = &HE0E0E0
Scol(9) = &HC0C0C0
Scol(10) = &HA0A0A0
Scol(11) = &H808080
Scol(12) = &H606060
Scol(13) = &H404040
Scol(14) = &H202020
Scol(15) = 0
Set Shape1.Container = picture1
picture1.ScaleMode = 3
picture1.Left = 250
End Sub

Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > picture1.ScaleWidth Then
X = picture1.ScaleWidth
ElseIf X < 0 Then
X = 0
End If
If Y > picture1.ScaleHeight Then
Y = picture1.ScaleHeight
ElseIf Y < 0 Then
Y = 0
End If
Shape1.Visible = True
xcor0 = X: ycor0 = Y
xcor1 = 0: ycor1 = 0
xxx1 = xcor0: yyy1 = ycor0
xxx2 = xcor1: yyy2 = ycor1
Shape1.Move xcor0, ycor0, xcor1, ycor1
SetCoordinates
End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
xxx2 = X - xxx1: yyy2 = Y - yyy1
xcor0 = xxx1: ycor0 = yyy1
xcor1 = xxx2: ycor1 = yyy2
If xxx2 < 0 Then
xcor0 = xxx1 + xxx2
If xcor0 < 0 Then xcor0 = 0
xcor1 = xxx1 - xcor0
End If
If yyy2 < 0 Then
ycor0 = yyy1 + yyy2
If ycor0 < 0 Then ycor0 = 0
ycor1 = yyy1 - ycor0
End If
If xcor0 + xcor1 > picture1.ScaleWidth Then xcor1 = picture1.ScaleWidth - xcor0
If ycor0 + ycor1 > picture1.ScaleHeight Then ycor1 = picture1.ScaleHeight - ycor0
Shape1.Move xcor0, ycor0, xcor1, ycor1
SetCoordinates

End If
End Sub

Private Sub SetCoordinates()
xcor1 = xcor0 + xcor1
ycor1 = ycor0 + ycor1
End Sub

Private Sub Timer1_Timer()
If Shape1.Visible = False Then Exit Sub
TIM = (TIM + 1) And 15
Shape1.BorderColor = Scol(TIM)
End Sub

viena 2005-01-17

打赏
举报

如果画黑色线，RGB(226, 173, 176)替换为RGB(255, 255, 255)
RGB(255, 255, 255)是白色，因为Picture1.DrawMode = 7

7 VbXorPen 异或笔
用异或笔在原来的地方重画，即可擦去原来的线，还原画线以前的背景

viena 2005-01-17

打赏
举报

Picture1是一个PictureBox

viena 2005-01-17

打赏
举报

Option Explicit

Dim bStartDraw As Boolean
Dim startX As Single, startY As Single
Dim EndX As Single, EndY As Single

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
bStartDraw = True
startX = X
startY = Y
EndX = X
EndY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bStartDraw Then
Picture1.DrawStyle = 2
'Picture1.ForeColor = RGB(226, 173, 176)
Picture1.DrawMode = 7
Picture1.Line (startX, startY)-(EndX, EndY), RGB(226, 173, 176), B
EndX = X
EndY = Y
Picture1.Line (startX, startY)-(EndX, EndY), RGB(226, 173, 176), B
Picture1.DrawMode = 13
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bStartDraw = False
End Sub

zglnew 2005-01-17

打赏
举报

badboy168 2005-01-17

打赏
举报

怎么没人呀，自己顶，不能沉，我顶，我顶，我顶顶顶~!~!
朋友们快来教我个方法

badboy168 2005-01-17

打赏
举报

是的，1楼的兄台莫非会，请传授小弟，谢谢

laisiwei 2005-01-17

打赏
举报

是不是那种会动的虚线的效果?

怎样才能在picturebox里画一个与photoshop相同效果的选区，谢谢

相关推荐