7490
社区成员
VB 是拿来玩玩的.
本人初中毕业,自学 VB ,由于工作需要曾用 VB 编写过用于资料统计的小程序,不过一直认为 VB 是用来娱乐的,没事打发时间到是满好的,有同感的交个朋友.
QQ:86264427
QQ:86264427
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
fullor2000 2003-05-23
API函数就好像是DOS下的INT21这类的中断指令。
只不过在DOS下这条指令执行时可以直接面向计算机的硬件设备，
而WINDOWS下调用API则面向他的虚拟机(VMM)。
要想了解WINDOWS到底是怎么样工作的，就要去学习虚拟机编程。
CIH病毒就是一个典型列子，能对硬件进行破坏。
只不过在DOS下这条指令执行时可以直接面向计算机的硬件设备，
而WINDOWS下调用API则面向他的虚拟机(VMM)。
要想了解WINDOWS到底是怎么样工作的，就要去学习虚拟机编程。
CIH病毒就是一个典型列子，能对硬件进行破坏。
sikeen 2003-05-22
嘿嘿，那就不用無邊框的窗體嘛。
我的客戶大部分不理解運行效率，而是更關心價錢。
我如果告訴他我要多花幾個月的時間和幾萬塊去幫他把這個軟件的效率提高了20%，他會立即槍斃俺的產品!
就目前主流的開發工具來說，並沒有哪個是絕對完美或絕對臭屁的，而應該根據你實際的需求選擇相應的工具!
我的客戶大部分不理解運行效率，而是更關心價錢。
我如果告訴他我要多花幾個月的時間和幾萬塊去幫他把這個軟件的效率提高了20%，他會立即槍斃俺的產品!
就目前主流的開發工具來說，並沒有哪個是絕對完美或絕對臭屁的，而應該根據你實際的需求選擇相應的工具!
ikey 2003-05-22
回:sikeen(阿土) ( )您说:
:)沒誰否認API的用處呀，不過等你搞完這一大堆後，俺早把程序編完啦。軟件開發時間就是金錢吶!
我不赞成您的观点,如果您不使用 API 实现对无边框的窗体延八个不同方向进行操作,并拖动,会减少多少代码?(会不会增多呢!),先不要考虑这段代码是否有用.程序运行效率如何?
:)沒誰否認API的用處呀，不過等你搞完這一大堆後，俺早把程序編完啦。軟件開發時間就是金錢吶!
我不赞成您的观点,如果您不使用 API 实现对无边框的窗体延八个不同方向进行操作,并拖动,会减少多少代码?(会不会增多呢!),先不要考虑这段代码是否有用.程序运行效率如何?
hjmeteor 2003-05-22
我不苟同这个观点，虽然VB同VC、DELPHI等比，可能是有区别，但不代表VB就没用。我就是用VB编了几个工作中很实用的程序，而且还在使用VB。不过搞专业开发的话，尽量不要使用VB.
道素 2003-05-22
我认为vb表面很简单，但是在简单的内部确实很复杂，因为他封装的太多，用C++很容易知道它实现的机制，但是vb的很动东西内部是怎么实现，机制是什么，它的winmain在哪里如何处理，怎样处理消息等等，并不是很容易看出的
( ">
)(
// )
shannon--//""--
-/------ch21st@hotmail.com
( ">
)(
// )
shannon--//""--
-/------ch21st@hotmail.com
sikeen 2003-05-22
:)沒誰否認API的用處呀，不過等你搞完這一大堆後，俺早把程序編完啦。軟件開發時間就是金錢吶!
ikey 2003-05-22
使用 API 函数很复杂吗?
看一下这个简单的例子.对无边框窗体的操作.
Option Explicit
'用于计时
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
'用于发送消息
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Const HTBOTTOM = 15
Private Const HTBOTTOMLEFT = 16
Private Const HTBOTTOMRIGHT = 17
Private Const HTTOP = 12
Private Const HTTOPLEFT = 13
Private Const HTTOPRIGHT = 14
Private Const HTLEFT = 10
Private Const HTRIGHT = 11
'为当前的应用程序释放鼠标捕获
Private Declare Function ReleaseCapture Lib "user32" () As Long
'取得窗体位置的函数
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'取得鼠标位置的函数
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
'用于如何操纵窗体大小及其位置
Dim Action As String
'停止计时
Private ExitApp As Boolean
Private Sub Form_Load()
Me.Show
GetTime
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
ReleaseCapture
Select Case Action
Case "Left"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTLEFT, 0&
Case "Right"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTRIGHT, 0&
Case "Up"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTTOP, 0&
Case "LeftUp"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTTOPLEFT, 0&
Case "RightUp"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTTOPRIGHT, 0&
Case "Down"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTBOTTOM, 0&
Case "LeftDown"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTBOTTOMLEFT, 0&
Case "RightDown"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTBOTTOMRIGHT, 0&
Case "Move"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Select
End If
End Sub
Private Sub frmSize()
Dim MyRect As RECT
Dim MyPoint As POINTAPI
' MyRect返回当前窗口位置
Call GetWindowRect(Me.hwnd, MyRect)
' MyPoint返回当前鼠标位置
Call GetCursorPos(MyPoint)
Select Case True
Case MyPoint.X < MyRect.Left + 5 And MyPoint.Y < MyRect.Top + 5
Screen.MousePointer = vbSizeNWSE
Action = "LeftUp"
Case MyPoint.X > MyRect.Right - 5 And MyPoint.Y > MyRect.Bottom - 5
Screen.MousePointer = vbSizeNWSE
Action = "RightDown"
Case MyPoint.X > MyRect.Right - 5 And MyPoint.Y < MyRect.Top + 5
Screen.MousePointer = vbSizeNESW
Action = "RightUp"
Case MyPoint.X < MyRect.Left + 5 And MyPoint.Y > MyRect.Bottom - 5
Screen.MousePointer = vbSizeNESW
Action = "LeftDown"
Case MyPoint.X < MyRect.Left + 5
Screen.MousePointer = vbSizeWE
Action = "Left"
Case MyPoint.X > MyRect.Right - 5
Screen.MousePointer = vbSizeWE
Action = "Right"
Case MyPoint.Y < MyRect.Top + 5
Screen.MousePointer = vbSizeNS
Action = "Up"
Case MyPoint.Y > MyRect.Bottom - 5
Screen.MousePointer = vbSizeNS
Action = "Down"
Case Else
Screen.MousePointer = 0
Action = "Move"
End Select
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ExitApp = True
End Sub
Public Sub GetTime()
Dim NextTick As Long
Do Until ExitApp
DoEvents
Do Until GetTickCount > NextTick
DoEvents
Loop: NextTick = GetTickCount + 50
frmSize
Loop
End
End Sub
看一下这个简单的例子.对无边框窗体的操作.
Option Explicit
'用于计时
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
'用于发送消息
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Const HTBOTTOM = 15
Private Const HTBOTTOMLEFT = 16
Private Const HTBOTTOMRIGHT = 17
Private Const HTTOP = 12
Private Const HTTOPLEFT = 13
Private Const HTTOPRIGHT = 14
Private Const HTLEFT = 10
Private Const HTRIGHT = 11
'为当前的应用程序释放鼠标捕获
Private Declare Function ReleaseCapture Lib "user32" () As Long
'取得窗体位置的函数
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'取得鼠标位置的函数
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
'用于如何操纵窗体大小及其位置
Dim Action As String
'停止计时
Private ExitApp As Boolean
Private Sub Form_Load()
Me.Show
GetTime
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
ReleaseCapture
Select Case Action
Case "Left"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTLEFT, 0&
Case "Right"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTRIGHT, 0&
Case "Up"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTTOP, 0&
Case "LeftUp"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTTOPLEFT, 0&
Case "RightUp"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTTOPRIGHT, 0&
Case "Down"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTBOTTOM, 0&
Case "LeftDown"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTBOTTOMLEFT, 0&
Case "RightDown"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTBOTTOMRIGHT, 0&
Case "Move"
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Select
End If
End Sub
Private Sub frmSize()
Dim MyRect As RECT
Dim MyPoint As POINTAPI
' MyRect返回当前窗口位置
Call GetWindowRect(Me.hwnd, MyRect)
' MyPoint返回当前鼠标位置
Call GetCursorPos(MyPoint)
Select Case True
Case MyPoint.X < MyRect.Left + 5 And MyPoint.Y < MyRect.Top + 5
Screen.MousePointer = vbSizeNWSE
Action = "LeftUp"
Case MyPoint.X > MyRect.Right - 5 And MyPoint.Y > MyRect.Bottom - 5
Screen.MousePointer = vbSizeNWSE
Action = "RightDown"
Case MyPoint.X > MyRect.Right - 5 And MyPoint.Y < MyRect.Top + 5
Screen.MousePointer = vbSizeNESW
Action = "RightUp"
Case MyPoint.X < MyRect.Left + 5 And MyPoint.Y > MyRect.Bottom - 5
Screen.MousePointer = vbSizeNESW
Action = "LeftDown"
Case MyPoint.X < MyRect.Left + 5
Screen.MousePointer = vbSizeWE
Action = "Left"
Case MyPoint.X > MyRect.Right - 5
Screen.MousePointer = vbSizeWE
Action = "Right"
Case MyPoint.Y < MyRect.Top + 5
Screen.MousePointer = vbSizeNS
Action = "Up"
Case MyPoint.Y > MyRect.Bottom - 5
Screen.MousePointer = vbSizeNS
Action = "Down"
Case Else
Screen.MousePointer = 0
Action = "Move"
End Select
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ExitApp = True
End Sub
Public Sub GetTime()
Dim NextTick As Long
Do Until ExitApp
DoEvents
Do Until GetTickCount > NextTick
DoEvents
Loop: NextTick = GetTickCount + 50
frmSize
Loop
End
End Sub
xayzmb 2003-05-22
所有的工具
其目的是将一项复杂的工作简单化
如果有人以自已能够以一种复杂的方法来完成一项简单的工作以荣的话
我不知该说什么了
只能建议大家都去学汇编吧(不好意思,我不知比汇编更....是什么 :p)
..............
其目的是将一项复杂的工作简单化
如果有人以自已能够以一种复杂的方法来完成一项简单的工作以荣的话
我不知该说什么了
只能建议大家都去学汇编吧(不好意思,我不知比汇编更....是什么 :p)
..............
zhumb 2003-05-22
存在就有他的道理
sikeen 2003-05-22
:)
純粹玩玩，那是為了寫代碼而寫代碼，真正做一個產品要考慮其成本的
純粹玩玩，那是為了寫代碼而寫代碼，真正做一個產品要考慮其成本的
chenyu5188 2003-05-22
UP
fraser01 2003-05-22
当然不是，都是一些最基本的VB编程。任何语言深了都很复杂的。
而且VB不是用在游戏编程的。这个对象要搞清楚。
基础的东西远比API要重要的多。
而且VB不是用在游戏编程的。这个对象要搞清楚。
基础的东西远比API要重要的多。
ikey 2003-05-22
今天刚来公司,多谢各位老哥来捧场!
我虽不是作为真正程序员,但我也知道作为程序员的的辛苦,为什么不能够苦中作乐呢?
当您解决了一直困惑你的设计难题时,是不是比玩任何游戏都会兴奋呢!会另你欣喜若狂!
所以说"玩玩"有什么不好呢,为什么让自己那么累呢?就当玩游戏赚钱吧!一点阿 Q 精神会使自己更轻松.
关于涉及到的关于 API 的话题,个人认为 VB 如果不借助 WIN32 API ,只是针对有限的控件进行程序设计,他的功能将是很有限的.简单的就编写游戏来说,如果不借助 WIN32 API 是没有办法写出像样的游戏.
对于 ecivilian(抽象青年) 提到的《VB6 高级编程》，我随没有看过,或许也看不董,但我认为很多更深层次内容是涉及到 WIN32 API 函数的.
多向大家学习,多指教!
我虽不是作为真正程序员,但我也知道作为程序员的的辛苦,为什么不能够苦中作乐呢?
当您解决了一直困惑你的设计难题时,是不是比玩任何游戏都会兴奋呢!会另你欣喜若狂!
所以说"玩玩"有什么不好呢,为什么让自己那么累呢?就当玩游戏赚钱吧!一点阿 Q 精神会使自己更轻松.
关于涉及到的关于 API 的话题,个人认为 VB 如果不借助 WIN32 API ,只是针对有限的控件进行程序设计,他的功能将是很有限的.简单的就编写游戏来说,如果不借助 WIN32 API 是没有办法写出像样的游戏.
对于 ecivilian(抽象青年) 提到的《VB6 高级编程》，我随没有看过,或许也看不董,但我认为很多更深层次内容是涉及到 WIN32 API 函数的.
多向大家学习,多指教!
ydzqw 2003-05-22
你丫的欠骂
裸男 2003-05-22
不是说使用API函数不好，只是每次调用API 我都有一种知其然而不知其所以然的感觉，API函数就像一个黑盒子，只有入口和出口，至于盒子里面到底是什么东西，我们都不知道。
同感！
同感！
litaoa 2003-05-22
哈哈。应该是看用的人怎么用吧。 其实上厕所也有很多种上法的，哈哈。
ikey 2003-05-22
回: wingchi(国家农民),
老哥,听有人说 windows 是用批处理做的,那么您就用 VB 也写一个吧!玩笑了.
不过象您这么自信的我到是第一次见过,佩服.
学无止境,祝前途一片光明.
老哥,听有人说 windows 是用批处理做的,那么您就用 VB 也写一个吧!玩笑了.
不过象您这么自信的我到是第一次见过,佩服.
学无止境,祝前途一片光明.
wingchi 2003-05-22
玩玩的？把你不能实现东西拿给我，我用vb给你实现。
这话不是我说的，好像是比尔盖茨说的
这话不是我说的，好像是比尔盖茨说的
Amaza 2003-05-22
我的软件在同类软件中是最快的，当然我用ＶＢ，速度完全不是ＶＢ的问题了！如果你不是半瓢水的话，ＶＢ的缺陷在于面向对象上！
kmzs 2003-05-22
什么工具好——要看你要做什么——更要看你能怎么做……
加载更多回复
VB课程设计俄罗斯方块 4.游戏前可以选择游戏的速度和游戏的等级，游戏速度既为方块下落速度，游戏等级为初始游戏时在基层随机生成一定行数的无规律方块，生成的行数由你来选择，每行至少产生5个以上的无规律方块，这样增加了游戏难度，...
游戏外挂制作，主要是VB的 学习制作外挂，其实是学习一门网络... 学习制作外挂，不是复杂的事，为什么不花点时间来学习学习呢？ 学习外挂有3点好处： 1、学到一门技术（关于网络） 2、可以更好地玩游戏， 3、可以利用外挂赚到人民币
vb如何实现两台计算机数据包传送,VB学习网站！ - PLC论坛 工控网 工控论坛 http://bbs.gkong.com/... 发表于：2004/3/18 9:16:00#5楼关于MSCOMM控件的一些说明VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备(如Modem)．还可以发送命令、进行数据交换以及监视和...
vb.net 模拟鼠标 失去焦点_DNF:都9102年了还在手动点竹子？鼠标连点器了解一下... 其实不玩最主要的原因还是想拿出时间来多陪陪媳妇，白天上班本身交流就少，晚上还玩游戏的话确实不妥，并且就这么一走了之还是很对不起930个关注我的人，向你们说声抱歉。所以，在这小小承诺一下，dnf不停服，绝不...
浙江高考VB之排序系列 冒泡排序 许多新手第一个学到的排序算法就是 冒泡排序 , 但作为浙江信息高考的宠儿, 浙考院的老师最喜欢拿这个冒泡来恶心你, 各种变形, 各种改编, 各种作, 但是正应一句话: 万变不离其中. 扯了这么多, ...
VB内嵌汇编玩排序 自动换行 【由 孤帆代码着色器1.0.1 着色】 孤帆Blog1 以前练手写的代码，拿来凑些热闹.如果有不妥之处请各位多多指教！2 ;asm部份3 .3864 .model flat,stdcall5 option casemap:none6 7 .code8 start:9 ;冒泡排序....
VB整人代码【摘】 PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。 拍拍手 顶起吧! 2： 复制代码 代码如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject(“wscript.shell”) ...
来吧！带你玩转 Excel VBA 来吧！带你玩转 Excel VBA 从错失良机到艰辛的DOS征程，从坎坷购机自学路到转机起程，从爱好到事业，他从一个完全不懂电脑的人到VBA高级应用者，一切全是自学…… 我是罗刚君，来自四川的一个小县城——...
电子信息工程就业方向、就业要求及薪资标准 如果从工程师和研究生的专业方向来看，电子信息专业的方向大概有 )1）数字电子线路方向。从事单片机（8位的8051系列、32位的ARM系列等等）、FPGA(CPLD)、数字逻辑电路、微机接口(串口、并口、USB、PCI)的开发，更高...
做你的第一款VB游戏——Timer控件 Timer控件在VB编程中具有很重要的作用，通过Timer控件，可以实现一些动态效果，可以定时触发某些代码。 Timer控件的常用属性 Interval属性 Interval属性是Timer控件最为重要的属性，也是少有的几个属性之一。 作用：...
VB和51单片机串口通信讲解（只针对VB部分） 作为一个vB程序员，要编写通信程序．只需知道通信控件提供给Windows通信AP1函数的接口即可．换句话说，只需设定和监视通 信控件的属性和事件即可。 2．使用Mscomm控件 在开始使用MSComm控件之前。需要先...
VB中的API详解 上面两个我们讲到了一般API的使用方法，和一些API常量的使用方法，接着我们来看看API类型的使用方法，在了解这一小节前请先搞懂VB中的自定义类型(Type)这章，否则你可能会稀里糊涂的，到时别怪我没提醒你哦！...
VB实现可调节难度的九宫格拼图 VB实现可调节难度的九宫格拼图实现本游戏需要熟练掌握paintpicture函数的应用，如果读者对该函数不熟练，需要读一下前面两篇博客哦 http://blog.csdn.net/wf824284257/article/details/53221631 ...
vb.net 获取系统图标_LOL绽灵节活动快速入门小技巧：提升英雄好感度获取奖励... 而拳头官网中，已经放出了本次活动的大致玩法介绍，由于原文篇幅较长，小编在这里就给大家总结一下基本的玩法和奖励。基于外服活动介绍，国服上线时可能会有出入LOL新英雄新英雄莉莉娅会在活动开启时上线。...
vb.net 同时给多个属性赋值_传奇技能，第十四祭：装备属性修改与增加新装备... 技能献祭，Get 新技能：传奇技能——应用篇，...增加新装备，则需要有装备图素材，特效图素材，再通过M2中的效果绑定来实现正常显示。本篇目录 一、装备基础属性修改（如攻防，元素属性） 二、套装属性修改和备注...
用编程来玩的游戏 CodeCombat 已全面开源 你还在为被游戏玩头痛吗？我们现在也能在游戏中称王称霸了。现在，有一种游戏叫“CodeCombat”。对，您没听错，他就是传说中的“代码战役”（自己翻译的）。不知你是否听过，玩游戏也可以学编程。 在倡导计算机学习...
