我曾经的添加图片按钮代码:
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
|