第一步:启动VB,打开考生文件夹下的工程文件sjtC.vbp。第二步:双击窗体中的任何位置,进入代码编辑窗口,填写代码如下:A Private Sub ImageA_MouseUp(Button As Integer, Shift As Integer, X AsSingle,Y As Single)B If Button=A ThenC If ImageA.Height<CE00 Or ImageA.Width<CE00 ThenD ImageA.Height=ImageA.Height+C00E Im
您的答案
答案解析
根据题意,本题可以使用MouseUp事件也可以使用MouseDown事件。“Button=1”表示按下鼠标左键,“Buttor=2”表示按下鼠标右键。“Image1.Height<3500 Or Image1.Width<3500”表示条件Image1.Height<3500与条件Image1.Width<3500只要任一为True时就执行Then后面的语句。下面的程序代码与此类似。
第一步:启动VB,打开考生文件夹下的工程文件sjtC.vbp。第二步:双击窗体中的任何位置,进入代码编辑窗口,填写代码如下:A Private Sub ImageA_MouseUp(Button As Integer, Shift As Integer, X AsSingle,Y As Single)B If Button=A ThenC If ImageA.Height<CE00 Or ImageA.Width<CE00 ThenD ImageA.Height=ImageA.Height+C00E Im
举一反三
Fatal error: Uncaught Error: Call to a member function query() on null in F:\duqu8.com\SaxueFrame\common\funarticle.php:16
Stack trace:
#0 F:\duqu8.com\SaxueFrame\common\funarticle.php(51): formatContent('<p>\xE5\x9C\xA8\xE8\x80\x83\xE7\x94\x9F\xE6\x96\x87...', Object(blockquestionlist))
#1 F:\duqu8.com\SaxueFrame\blocks\block_questionlist.php(107): formatQuestion(Array, Object(blockquestionlist))
#2 F:\duqu8.com\SaxueFrame\lib\template\template.php(640): blockquestionlist->setcontent(true)
#3 F:\duqu8.com\SaxueFrame\data\compiled\templates\wap\question.detail.html.php(354): saxue_get_eloop(Array)
#4 F:\duqu8.com\SaxueFrame\lib\template\template.php(329): include('F:\\duqu8.com\\Sa...')
#5 F:\duqu8.com\SaxueWap\detail.php(81): saxuetpl->fetch('F:/duqu8.com/Sa...')
#6 {main}
thrown in F:\duqu8.com\SaxueFrame\common\funarticle.php on line 16