怎么编程作图

姐只是个传说

工具/原料

• 《Microsoft Visual Studio 2010》
  
  

方法/步骤

• 
  运行“Microsoft Visual Studio 2010”，在“vs”的窗口弹出后，在“菜单栏”中鼠标左键单击“文件（F）”，然后在弹出来的“菜单”中鼠标左键单击第一个—“新建项目（p）”。
  
  
  
                                 
  登录/注册后可看大图
  
  
  
                                 
  登录/注册后可看大图
  
  
  
• 
  根据第一步，会有一个标题是“新建项目”的窗口，鼠标左键单击左边编辑栏中的 “Visual Basic”,然后在窗口中间新出来的编辑框中鼠标左键单击 “Windowa 窗体应用程序”，再鼠标左键单击一个标题为“确定”的按钮。
  
  
  
                                 
  登录/注册后可看大图
  
  
  
• 
  根据第二步，会有一个编程窗口弹出，然后鼠标左键单击一下菜单栏中的“视图（v）”，在弹出的菜单中鼠标左键单击“工具箱（x）”，然后在工具箱中鼠标左键单击工具箱中的标题为“Timer”的控件，再在名为“Form1”的窗口中鼠标左键单击，时钟控件就上了。
  
  
  
                                 
  登录/注册后可看大图
  
  
  
                                 
  登录/注册后可看大图
  
  
  
• 
  根据第三步，鼠标左键双击标题为“Form1”的窗口，会出现代码编辑的页面，写代码我在图片中更详细，文本太麻烦。。。。。。。望谅解！
  
  
  
                                 
  登录/注册后可看大图
  
  
  
                                 
  登录/注册后可看大图
  
  
  
• 
  代码：
  
  Public Class Form1
      Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          Timer1.Start()
  
      End Sub
  
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
          If GetAsyncKeyState(112) = -32767 Then 'F1热键值为 -32767，为什么是负数呢？因为它原本
              Me.Text = "You‘re very good ！"
          End If
      End Sub
  End Class
  
  
  
• 
  -----------------------------------------------------------------
  注释：
         ME为标题为“Form1”的窗口，
         Text为“标题”的意思，
         Me.Text="1"意思为“指定窗口的标题为1”。
  -----------------------------------------------------------------
       “Timer1”是时钟的“代号”，
       “Start（）”是“代码”，意思为启动，
       “Timer1.Start()”是“时钟启动”的意思。
         因为vs里的vb中的时钟，他的周期都已经设置好了，所以直接启动时钟，没有这个启动时钟的代码，时钟是不会有用的。
  -----------------------------------------------------------------
          IF意思为“如果”，
          Then意思为“那么”，
          End if意思为“反之”
          GetAsyncKeyState()是用来检测刚刚按下的键值的
       【   If GetAsyncKeyState(112) = -32767 Then 'F1热键值为 -32767，为什么是负数呢？因为它原本便是其他进制，所以转进制之后就成负数了
              Me.Text = "You‘re very good ！"
          End If 】
  译：如果按下的键值等于“-32767”，那么父窗口的标题为“You’re very good！”，反之不做反应。
  
  
• http://yyk.39.net/hospital/f9ae6_doctors.html?diseaseId=1623
  http://yyk.39.net/hospital/f9ae6_doctors.html?diseaseId=1530
  http://yyk.39.net/hospital/f9ae6_doctors.html?diseaseId=1364
  http://yyk.39.net/hospital/f9ae6_doctors.html