用vb编写pos机

1、用vb语言编写:类似超市收银机: 1,单价,数量,折扣,应付款的文本框 2...

这个做起来很简单，只要给文本框的text属性赋值就可以了。清除按钮，把所有值设为""，计算按钮，把应付款的文件框的值设为计算的值了。

2、超市pos机管理系统的设计与完成,用vb做的,谁有啊,急求!发一个给我...

超市pos机管理系统的设计与完成
｜陆｜
｜幺｜
｜伍｜+Q能定做 很多 源码 站 有 代码 下载 吧

3、vb的Printer对象可以控制pos打印机打印吗?

参阅:http://www.vbgood.com/thread-86681-1-1.html
注意只能在并口通信方式下使用,USB口不行. 只要打印机的驱动装好的情况下VB什么打印机都可以用的，pos打印机如果不能用话，检查一下windows驱动是否装对了，装对了以后把它设置成默认打印机就可以在VB里用了 可以阿，POS机有自己的输出代码。

4、吉成POS机顾客显示屏驱动制作VB6.0

没看懂你想干嘛。 所有垃圾

5、vb编写一个零售付账的程序

例如因为你输入大写时，触发 text_change 事件，会改为小写，而这样又会触发 change 事件，又把小写改为大写，这样就是循环，导致溢出

可以定义一个变量保存当前状态，当改变一次就就不再执行，直到有键盘或者鼠标输入时恢复

Dim b As Boolean

Private Sub t1_Change()
If b Then
b = False
t1.SelStart = Len(t1.Text)
a = Right(t1.Text, 1)
If Asc(a) >= 65 And Asc(a) <= 90 Then
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + LCase(a)
ElseIf Asc(a) >= 97 And Asc(a) <= 122 Then
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + UCase(a)
ElseIf Asc(a) = 32 Then
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + a
Else
t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + "*"
End If
End If
End Sub

Private Sub t1_KeyDown(KeyCode As Integer, Shift As Integer)
b = True
End Sub

Private Sub t1_Mouse迹袱管惶攮耗归同害括Down(Button As Integer, Shift As Integer, X As Single, Y As Single)
b = True
End Sub

转载请带上网址：http://www.pos-diy.com/posjitwo/116625.html