Question

求VB代码：添加一个文本框，输入文字，然后利用单选按钮对文字进行设置，第一个是“ 光标在文本的开始”，

Answer 1

Private Sub Option1_Click()
If Option1.Value Then Text1.SelStart = 0: Text1.SetFocus
End Sub

追问

如果在末尾呢

追答

Text1.SelStart = len(text1.text)-1: Text1.SetFocus

追问

再请教个，嘿嘿，求VB代码：设计一个模拟网络购物程序。使用列表框列出可购买的商品，用户通过列表框各项前的复选框来选择。选择后，出现价格，当用户输入数量后，程序自动计算出购买商品的类型、单价、数量和金额，谢谢，非常感谢你啊，呵呵