编写一个应用程序,界面如图所示。窗体中文字“VB应用程序!”为一标签控件,单击标题为“放大”的命令按

2025-04-13 19:50:01
推荐回答(2个)
回答1:

Option Explicit

Private Sub Command1_Click()
Label1.Font.Size = Label1.Font.Size + 1
End Sub

Private Sub Command2_Click()
Label1.Font.Size = Label1.Font.Size - 1
End Sub

Private Sub Command3_Click()
Label1.Top = Label1.Top - 50
End Sub

Private Sub Command4_Click()
Label1.Left = Label1.Left + 50
End Sub

Private Sub Command5_Click()
Label1.Top = Label1.Top + 50
End Sub

Private Sub Command6_Click()
Label1.Left = Label1.Left - 50

End Sub

回答2:

MySQL server error report:Array 问题,ECSHOP网站出现以下错误,请告诉帮忙看下怎么解决,拜谢各位大侠
悬赏分:50 | 离问题结束还有 14 天 14 小时 | 提问者:fishcouldfly MySQL server error report:Array ( [0] => Array ( [message] => MySQL Query Error ) [1] => Array ( [sql] => INSERT INTO `sqldbtun`.`dbtun_stats` ( ip_address, visit_times, browser, system, language, area, referer_domain, referer_path, access_url, access_time) VALUES ('116.238.123.26', '1', 'Safari 534.10', 'Windows XP', 'en-US,en', '上海市', '', '', '/index.php', '1301506986') ) [2] => Array ( [error] => Can't find file: 'dbtun_stats.MYI' (errno: 2) ) [3] => Array ( [errno] => 1017 ) )