升级后出现一个非常奇怪的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 升级后出现一个非常奇怪的问题

共有5378人关注过本帖树形打印复制链接主题：升级后出现一个非常奇怪的问题

don

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/5/17 16:55:00 [显示全部帖子]

用GDI更簡單:

Dim n As Integer = Tables("表A").Current("星级评定")

if n < 6 then

Dim pt As WinForm.Painter =Forms("窗口1").Controls("Painter1")

Dim img1,img2 As String

img1 ="star-on.png"

img2 ="star-off.png"

Dim g As Graphics = pt.Graphics

g.Clear(Color.White)

For n1 As Integer = 0 To 4

If n > 0 Then

g.DrawImage(getImage(iif(n1< n,img1,img2)),2+16*n1,5,16,16)

Else

g.DrawImage(getImage(img2),2+15*n1,5,16,16)

End If

pt.Repaint()

End if

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/5/17 17:53:00 [显示全部帖子]

我沒考慮點擊圖標修改評定,只是提供另一個方法,如必須如此,你還是用你的方法吧.

don

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/5/17 18:06:00 [显示全部帖子]

或用MouseDown事件判斷 E.X的數值來對應相應位置的Star

If e.Sender.Name="Painter1" Then MessageBox.show(e.x)

主题：升级后出现一个非常奇怪的问题