|
我曾经的添加图片按钮代码：
Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim p As WinForm.Painter = e.Form.Controls("大视图")
Dim g As Graphics = p.Graphics
g.Clear(Color.Transparent)
g.DrawImage(getImage(dlg.FileName),0,0,520,325)
p.Repaint()
For i As Integer = 1 To FileSys.GetFiles(GetConfigValue("系统路径",ProjectPath) & "Images").Count+1
if FileSys.FileExists(GetConfigValue("系统路径",ProjectPath) & "Images\T" & Format(i,"0000") & ".jpg") = false
Vars("图源编号") = i
Exit For
end if
next
Vars("文件名称") = GetConfigValue("系统路径",ProjectPath) & "Images\T" & Format(Vars("图源编号"),"0000") & ".jpg"
p.Save(Vars("文件名称"))
For i As Integer = 1 To FileSys.GetFiles(GetConfigValue("系统路径",ProjectPath) & "Images").Count
if e.Form.ExistControl("文件列表" & i) = true
e.Form.RemoveControl("文件列表" & i)
end if
if e.Form.ExistControl("图片列表" & i) = true
e.Form.RemoveControl("图片列表" & i)
end if
Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("文件列表" & i, ControlTypeEnum.Label)
lbl.Text = FileSys.GetFiles(GetConfigValue("系统路径",ProjectPath) & "Images")(i-1)
lbl.Width= 519
lbl.Height=16
lbl.BackColor=Color.White
lbl.Left = 0
lbl.Top = 16*(i-1)
lbl.TopMost=true
e.Form.Controls("Panel1").AddControl(lbl)
Dim A As WinForm.Painter
A = Forms("系统设置").CreateControl("图片列表" & i, ControlTypeEnum.Painter)
A.Left =105*((i-1) mod 5)
A.Top = 75*((i-1)\5)
A.Width =100
A.Height =70
Forms("系统设置").Controls("Panel2").AddControl(A)
Forms("系统设置").controls("图片列表" & i).Cursor = Windows.Forms.Cursors.Hand
Dim p1 As WinForm.Painter = e.Form.Controls("图片列表" & i)
Dim g1 As Graphics = p1.Graphics
g1.Clear(Color.Transparent)
g1.DrawImage(getImage(lbl.Text),0,0,100,70)
p1.Repaint()
next
e.Form.Controls("大视图").Visible = true
MessageBox.Show("你选择的图片:" & dlg.FileName & "已被成功添加到系统,从下次开始即可以直接选用!","提示",MessageBoxButtons.ok, MessageBoxIcon.Information)
end if
|
加好友 
发短信
Post By：2010/3/31 11:13:00 [显示全部帖子]
