芬琳乳胶漆怎么样:VB入门技巧N例(4)
来源:百度文库 编辑:九乡新闻网 时间:2024/10/06 01:48:25
10.在状态栏显示无边框窗体图标。
11. 记录窗体的大小及位置和程序中的一些设置
12. 解决mschart控件数据更改时的闪动现象
1、在有MSChart控件的窗体中另外加入一个PictureBox控件,如MSChart1和Picture1。
2、使Picture1和MSChart1大小一致,位置相同(通过左对齐和顶端对齐)。
3、使Picture1在MSChart1前端,设置Picture1的Visible为False,即不可见。只有刷新数据时Picture1才显示。
'刷新数据过程
Private Sub Refresh()
Dim V_newchar() 'n维数组
……
Picture1.Visible = True
MSChart1.ChartData = V_newchar '给MSChart1重新赋值,即刷新数据
MSChart1.EditCopy '将当前图表的图片复制到剪贴板中
Picture1.Picture = Clipboard.GetData() '给Picture1赋值剪贴板中的图片
End Sub
这样每一次刷新数据时Picture1显示的图片都不会产生闪烁现象
- Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd _ As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd _ As Long, ByVal nIndex As Long) As Long
- Const GWL_STYLE = (-16&)
- Const WS_SYSMENU = &H80000
- Private Sub Form_Load()
- 'Make Form's Icon visible in the taskbar
- SetWindowLong Me.hWnd, GWL_STYLE, GetWindowLong(Me.hWnd, GWL_STYLE) Or WS_SYSMENU
- End Sub
11. 记录窗体的大小及位置和程序中的一些设置
- Private Sub Form_Load()
- Me.Width = GetSetting(App.Title, Me.Name, "Width", 7200)
- Me.Height = GetSetting(App.Title, Me.Name, "Height", 6300)
- Me.Top = GetSetting(App.Title, Me.Name, "Top", 100)
- Me.Left = GetSetting(App.Title, Me.Name, "Left", 100)
- Check1.Value = GetSetting(App.Title, Me.Name, "check1", 0)
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Call SaveSetting(App.Title, Me.Name, "Width", Me.Width)
- Call SaveSetting(App.Title, Me.Name, "Height", Me.Height)
- Call SaveSetting(App.Title, Me.Name, "Top", Me.Top)
- Call SaveSetting(App.Title, Me.Name, "Left", Me.Left)
- Call SaveSetting(App.Title, Me.Name, "check1", Check1.Value)
- End Sub
12. 解决mschart控件数据更改时的闪动现象
1、在有MSChart控件的窗体中另外加入一个PictureBox控件,如MSChart1和Picture1。
2、使Picture1和MSChart1大小一致,位置相同(通过左对齐和顶端对齐)。
3、使Picture1在MSChart1前端,设置Picture1的Visible为False,即不可见。只有刷新数据时Picture1才显示。
'刷新数据过程
Private Sub Refresh()
Dim V_newchar() 'n维数组
……
Picture1.Visible = True
MSChart1.ChartData = V_newchar '给MSChart1重新赋值,即刷新数据
MSChart1.EditCopy '将当前图表的图片复制到剪贴板中
Picture1.Picture = Clipboard.GetData() '给Picture1赋值剪贴板中的图片
End Sub
这样每一次刷新数据时Picture1显示的图片都不会产生闪烁现象
VB入门技巧N例(4)
VB入门技巧N例(3)
VB入门技巧N例(5)
VB入门技巧N例(6)
VB入门技巧N例(7)
VB入门技巧N例(8)
VB入门技巧N例(9)
VB入门技巧N例(10)
VB入门技巧N例(11)
编程入门网-Vb教程+
编程入门网-VB教程:第三章-VB语言+
vb.net入门:CheckedListBox控件的使用
VB爱好者乐园(VBGood) - 经验之谈 - VB编程的必备技巧
围棋入门n(完整版)
VB 窗体编程 技巧汇编 经验大全+
VB 窗体编程 技巧汇编 经验大全-
沟通的技巧n
做菜的技巧n
vb vb
编辑日志入门技巧
数码单反摄影技巧入门
数码单反摄影技巧入门
坐禅入门技巧
摄影技巧初级入门