芬琳乳胶漆怎么样:VB入门技巧N例(4)

来源：百度文库 编辑：九乡新闻网 时间：2024/07/07 15:29:53
10.在状态栏显示无边框窗体图标。
  1. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd _ As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  2. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd _ As Long, ByVal nIndex As Long) As Long
  3. Const GWL_STYLE = (-16&)
  4. Const WS_SYSMENU = &H80000
  5. Private Sub Form_Load()
  6. 'Make Form's Icon visible in the taskbar
  7. SetWindowLong Me.hWnd, GWL_STYLE, GetWindowLong(Me.hWnd, GWL_STYLE) Or WS_SYSMENU
  8. End Sub
复制代码
11. 记录窗体的大小及位置和程序中的一些设置
  1. Private Sub Form_Load()
  2.     Me.Width = GetSetting(App.Title, Me.Name, "Width", 7200)
  3.     Me.Height = GetSetting(App.Title, Me.Name, "Height", 6300)
  4.     Me.Top = GetSetting(App.Title, Me.Name, "Top", 100)
  5.     Me.Left = GetSetting(App.Title, Me.Name, "Left", 100)
  6.     Check1.Value = GetSetting(App.Title, Me.Name, "check1", 0)
  7. End Sub
  8. Private Sub Form_Unload(Cancel As Integer)
  9.     Call SaveSetting(App.Title, Me.Name, "Width", Me.Width)
  10.     Call SaveSetting(App.Title, Me.Name, "Height", Me.Height)
  11.     Call SaveSetting(App.Title, Me.Name, "Top", Me.Top)
  12.     Call SaveSetting(App.Title, Me.Name, "Left", Me.Left)
  13.     Call SaveSetting(App.Title, Me.Name, "check1", Check1.Value)
  14. 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 编辑日志入门技巧 数码单反摄影技巧入门 数码单反摄影技巧入门 坐禅入门技巧 摄影技巧初级入门