nad582
Thành viên thường trực




- Tham gia
- 7/6/11
- Bài viết
- 317
- Được thích
- 48
Chào a, a(c) đừng ngại. Thật ra những điều mà a(c) góp ý trên, cũng có phần đúng cũng có phần chưa đúng, nhưng từ những ý trên mà e học hỏi thêm nhiều điều. E xem a(c) trên diễn đàn là người thầy người cô và bạn bè, nên những điều đó ko ảnh hưởng gì cả có thể nó còn là động lực của e.Bạn đừng phật ý nhé:
Bạn chưa có hiểu về Form về VBA (chưa nói tới VB6), cách truyền biến, hiển thị, tên điều kiển....
Nếu bạn muốn học VB6 thì nên đi từ những cuốn sách VB6 để hiểu các khái niệm rồi làm chứ VBA bạn cũng chưa có nắm vững.
Ví như file bạn post và những gì bạn trình bày có thể thấy một số vấn đề sau
1/ Bạn chưa có đặt tên các điều khiển (textbox)
2/ Bạn chưa biết cách truyền tham số vào hàm.
3/ Bạn cũng chưa có khai báo biến
Ý kiến cá nhân: bạn nên xác định lại mục tiêu và cách học để có thể áp dụng nhanh nhất. Nên đọc tài liệu để có những cái nhìn cơ bản trước bạn ah.
Chào a(c) trong GPE, e mới tìm hiểu VB6, e tập làm 1 cái phép tính trong VB6,..
tính diện tích hình chữ nhật như sau:
]
nhưng khi bấm vào mở lên thì không hiện lên để thực hiện phép tính như UserForm trong excell
nhờ a(c) chỉ giúp dùm e,..e chân thành cảm ơn!!
Public Function dientich()
dientich = [COLOR=#ff0000]textbox[/COLOR]1 * [COLOR=#ff0000]textbox[/COLOR]2
End Function
Private Sub Command1_Click(Index As Integer)
[COLOR=#ff0000]textbox[/COLOR]3 = dientich
End Sub
Public Function dientich()
dientich = [COLOR=#ff0000]Text1[/COLOR] * [COLOR=#ff0000]Text2[/COLOR]
End Function
Private Sub Command1_Click(Index As Integer)
[COLOR=#ff0000]Text3[/COLOR] = dientich
End Sub
Cảm ơn anh ndu96081631, về thực hiện công thức thì e có thể dựa vào VBE hoặc tìm tài liệu VB để tham khảo (và có thể thực hiện được).Bạn gọi tên đối tượng không đúng
Code của bạn:
Chú ý chỗ màu đỏ: Đối tượng TextBox trong VB6 không gọi là TextBox mà gọi là Text (chọn vào từng TextBox, nhìn vào khung Properties cũng thấy rồi)Mã:Public Function dientich() dientich = [COLOR=#ff0000]textbox[/COLOR]1 * [COLOR=#ff0000]textbox[/COLOR]2 End Function Private Sub Command1_Click(Index As Integer) [COLOR=#ff0000]textbox[/COLOR]3 = dientich End Sub
Code trên sửa lại thành vầy mới đúng
Mã:Public Function dientich() dientich = [COLOR=#ff0000]Text1[/COLOR] * [COLOR=#ff0000]Text2[/COLOR] End Function Private Sub Command1_Click(Index As Integer) [COLOR=#ff0000]Text3[/COLOR] = dientich End Sub
*Nếu không nhầm bạn dang dùng chức năng standard Exe, tức là sau khi tạo được form và code đã hoạt động đúng,bạn sẽ vào File -> make file exe,Cảm ơn anh ndu96081631, về thực hiện công thức thì e có thể dựa vào VBE hoặc tìm tài liệu VB để tham khảo (và có thể thực hiện được).
Do e không có nhiều kiện để học VB.net(vì nhiều lý do) nên e nhờ a(c) chỉ giúp dùm e:
Vấn đề của em là như vậy đã thực hiện công thức đúng như trên rồi (ndu96081631 :bài #4) thì làm sao để cho form đó hoạt động (công thức e có thể tự thực hiện được nhưng vấn đề lớn nhất của em là không biết làm sao cho nó khởi động để thực hiện phép tính)
a(c) giúp dùm e...e chân thành cảm ơn
Cảm ơn anh ndu96081631, về thực hiện công thức thì e có thể dựa vào VBE hoặc tìm tài liệu VB để tham khảo (và có thể thực hiện được).
Do e không có nhiều kiện để học VB.net(vì nhiều lý do) nên e nhờ a(c) chỉ giúp dùm e:
Vấn đề của em là như vậy đã thực hiện công thức đúng như trên rồi (ndu96081631 :bài #4) thì làm sao để cho form đó hoạt động (công thức e có thể tự thực hiện được nhưng vấn đề lớn nhất của em là không biết làm sao cho nó khởi động để thực hiện phép tính)
a(c) giúp dùm e...e chân thành cảm ơn