爱问知识人 爱问教育 医院库

vb中怎么做出圆形按钮

首页

vb中怎么做出圆形按钮


        

提交回答
好评回答
  • 2006-06-13 22:57:39
      方法:
    1 用图形控件(如img,pic),自己在事件中处理,一般采用三幅图,分别表示Normal,Mouse In以及Mouse Down;
    2 用其它控件,如Sheriden_ActiveThreed_Plus3。0等,事件已帮你做好,只需加入图形即可,非常方便。
       3 在一个Form中定义两个按钮,cmd1和command2,书写以下代码: Private Sub cmd1_Click() MsgBox "ok" End Sub Private Sub Command2_Click() Dim crgn As Long Dim ret As Long crgn = CreateEllipticRgn(5, 5, cmd1。
      Width - 5, cmd1。Height - 5) ret = SetWindowRgn(cmd1。hwnd, crgn, True) cmd1。Caption = "ok" cmd1。
      Visible = True End Sub API函数: Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long。

    挟***

    2006-06-13 22:57:39

类似问题

换一换
  • 程序设计 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):