Lvjinjie

兄弟，什么没有看到‘KEY-107B英文键盘检测系统’这个的VB原码，在下想学习下，是否可以发到我的信箱里，124885464@qq.com ,在下谢谢了

同行,同行,呵呵 ---------------------------- 专业虚拟仪表控件,工业控件,外观控件 [url=http://www.beaugauge.com]www.beaugauge.net[/url] [img]http://www.beaugauge.net/img/beaugauge001.jpg[/img]

@pt2010 此VB6.0的应用程序，需安装VB Runtime

如果您有一技之长，请到淘师宝发帖子收徒弟； 如果您想学习一门技能，请到淘师宝发帖子拜师傅； 拜师傅，收徒弟，到淘师宝，网址：www.taoshibao.com

不能用，win2003

感谢lz分享！

支持，界面美观，操作简单，功能实用

下载源码学习！！

@豪 这反差，够可以。

VB手机号码归属地查询,CPU参数,网络校时时钟,涵数计算器部分小程序 1,进制转换部分小程序 Dim a, b, c, d '进制变量全局声明 Dim num As Double Function Bin2Dec() '二进制转十进制 a = num For ki = 1 To Len(a) b = Mid(a, ki, 1) c = (2 * Val(b)) ^ (Val(Len(a)) - ki) d = d + c Next ki End Function '二进制转十进制 Public Function Dec2Bin(ByVal num As Long) As String '十进制转二进制 Do Dec2Bin = num Mod 2 & Dec2Bin num = num \ 2 Loop While num <> 0 End Function Private Sub Command16_Click(Index As Integer) Text2.SetFocus '去按钮聚焦线 Select Case Index Case 0 Text2.Text = Text2.Text + Command16(0).Caption '十六进制"A"置数 Case 1 Text2.Text = Text2.Text + Command16(1).Caption '十六进制"B"置数 Case 2 Text2.Text = Text2.Text + Command16(2).Caption '十六进制"C"置数 Case 3 Text2.Text = Text2.Text + Command16(3).Caption '十六进制"D"置数 Case 4 Text2.Text = Text2.Text + Command16(4).Caption '十六进制"E"置数 Case 5 Text2.Text = Text2.Text + Command16(5).Caption '十六进制"F"置数 Case 6 Text2 = Val("&H" & Text2.Text) '十六进制转十进制 Case 7 Dim n As Long n = Text2.Text Text2.Text = Dec2Bin(n) '十进制转二进制 Case 8 num = Text2 d = 0 Call Bin2Dec Text2 = d '二进制转十进制 Case 11 Text2.Text = Trim(Hex(Text2.Text)) '十进制转十六进制 End Select End Sub 2,四舍五入 Private Sub Command15_Click() '四舍五入计算器 Text2.SetFocus'去按钮聚焦线 Dim a1 As Double a1 = Text2.Text Label5.Caption = Round(a1, 2)'Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。 End Sub 3,窗口最小化小程序 Private Sub Command16_Click(Index As Integer) Select Case Index Case 12 Form1.WindowState = vbMinimized'窗口最小化 End Select End Sub 4,星期汉字显示小程序 Private Sub Timer1_Timer() Dim w w = Split("日，一，二，三，四，五，六", "，") Label34 = Format(Date, "YYYY年MM月DD日") & " 星期" & w(Weekday(Date) - 1) & " " End Sub

@aspnetx 什么叫反差,懂不？

@lazylu 有本事自己做一个给大家看看，

很有趣呵~~~~这个是军用的吗？好多细节好像和民航的很不一样哦~~那个发动机功率是N1还是N2还是什么东西？为什么速度是用KMPH而不是节的，军用灰机是都是用公制D？那高度是用尺还是米呢？起飞时间是指抬轮的还是离地的还是收轮的呀？好像还有AP的选项？是真的接上一台AP还是……？ 对了，LZ有没有搞过FS的仪表啊~~好像挺有市场的~~~ ------华丽丽的分割线------ 其实老实说，VB也就只能画个界面了，真的弄上灰机，WIN这种非实时的系统加上VB这种非实时的运行库，保证接通AP之时，就是机毁人亡之时啊~哈哈

这个用在航空相关项目么？用黑色，不妥吧，呵呵。如果只是demo无所谓了。 我曾经看到一个人给某航空公司做网站，主题居然是灰黑色。虽然美术功底很好，但是，给人的感觉总是能联想到空难。

没看代码没感觉,看了代码瞬间没感觉了

用GDI+应该会很简单， 主要的还是怎么样去分类和组织代码。

不错，但这样的代码维护扩展起来可是相当的痛苦吧

不错，挺强。

关注过楼主的第一篇文章，真是越来越精彩啊

恩，这玩意是一个winform的程序吗？ 还是控制台的啊？ 最近在看一本GDI+的书，不晓得这里用不用的到哇