• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Hỏi về thao tác với control

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

User avatar
meocondethuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 75
Joined: Sun 28/02/2010 11:14 pm
Has thanked: 1 time
Been thanked: 2 times

Hỏi về thao tác với control

Postby meocondethuong » Sat 26/06/2010 11:48 pm

Anh, chị nào xem file đính kèm rồi sửa giúp em với.
Cảm ơn!
Attachments
default.ZIP
(2.71 KiB) Downloaded 174 times



Uzumaki Naruto
Thành viên danh dự
Thành viên danh dự
Posts: 839
Joined: Mon 30/04/2007 9:55 pm
Location: Sài Gòn
Has thanked: 7 times
Been thanked: 83 times

Re: Hỏi về thao tác với control

Postby Uzumaki Naruto » Sun 27/06/2010 12:02 am

Trời, chỉ có vậy thôi? Có sẵn code hết rồi mà bạn :-|
Attachments
New Folder.rar
(2.56 KiB) Downloaded 182 times
Cause you're my special thing
I'm flying without wings

User avatar
meocondethuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 75
Joined: Sun 28/02/2010 11:14 pm
Has thanked: 1 time
Been thanked: 2 times

Re: Hỏi về thao tác với control

Postby meocondethuong » Sun 27/06/2010 10:20 am

Uzumaki Naruto wrote:Trời, chỉ có vậy thôi? Có sẵn code hết rồi mà bạn :-|

- Ý a, em quên ghi ra câu hỏi quan trọng trong file đính kèm rồi, là: nếu viết ra 3 đoạn code thì làm sao gộp lại rút ngắn thành 1 đoạn ấy?! (còn ghi riêng ra từng đoạn như đó thì em đã biết làm :) )
Last edited by meocondethuong on Mon 28/06/2010 4:48 pm, edited 2 times in total.

Uzumaki Naruto
Thành viên danh dự
Thành viên danh dự
Posts: 839
Joined: Mon 30/04/2007 9:55 pm
Location: Sài Gòn
Has thanked: 7 times
Been thanked: 83 times

Re: Hỏi về thao tác với control

Postby Uzumaki Naruto » Sun 27/06/2010 11:21 am

Thì đây:
  1. Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. Dim i As Byte
  3.     For i = 0 To 2
  4.         If Image1(Index).Top = DuongNgang(i).Top Then
  5.             Image1(Index).Top = DuongNgang(i).Top - 90
  6.             Image1(Index).Picture = Image2.Picture
  7.         End If
  8.     Next
  9. End Sub
Cause you're my special thing
I'm flying without wings

User avatar
meocondethuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 75
Joined: Sun 28/02/2010 11:14 pm
Has thanked: 1 time
Been thanked: 2 times

Re: Hỏi về thao tác với control

Postby meocondethuong » Sun 27/06/2010 1:15 pm

* Cảm ơn Uzumaki Naruto, cho hỏi câu sau cùng của chủ đề này:
- Khi dùng code này:

Dim i As Byte
For i = 0 To 2
If Image1(Index).Top <= DuongNgang(i).Top Then
Image1(Index).Top = DuongNgang(i).Top - 90
Image1(Index).Picture = Image2.Picture
End If
Next

- Làm sao cho các control trong từng nền màu cam bám lấy từng DuongNgang màu xanh của nó ?
(chứ không phải tất cả control bị nhảy xuống DuongNgang màu xanh cuối cùng?)

(Xem file đính kèm)
Càm ơn!

Uzumaki Naruto
Thành viên danh dự
Thành viên danh dự
Posts: 839
Joined: Mon 30/04/2007 9:55 pm
Location: Sài Gòn
Has thanked: 7 times
Been thanked: 83 times

Re: Hỏi về thao tác với control

Postby Uzumaki Naruto » Sun 27/06/2010 4:04 pm

Ủa trong code của mình là = mà đâu phải <= đâu. Nè project của bạn mình đã sửa và test thử rồi mà.
Cause you're my special thing
I'm flying without wings

User avatar
meocondethuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 75
Joined: Sun 28/02/2010 11:14 pm
Has thanked: 1 time
Been thanked: 2 times

Re: Hỏi về thao tác với control

Postby meocondethuong » Sun 27/06/2010 4:48 pm

Uzumaki Naruto wrote:Ủa trong code của mình là = mà đâu phải <= đâu. Nè project của bạn mình đã sửa và test thử rồi mà.

* Đúng rồi, nhưng xin đọc lại, em đã ghi:
meocondethuong wrote:* Cảm ơn Uzumaki Naruto, cho hỏi câu sau cùng của chủ đề này:
- Khi dùng code này:

Dim i As Byte
For i = 0 To 2
If Image1(Index).Top <= DuongNgang(i).Top Then
Image1(Index).Top = DuongNgang(i).Top - 90
Image1(Index).Picture = Image2.Picture
End If
Next

- Làm sao cho các control trong từng nền màu cam bám lấy từng DuongNgang màu xanh của nó ?
(chứ không phải tất cả control bị nhảy xuống DuongNgang màu xanh cuối cùng?)

(Xem file đính kèm)
Càm ơn!
Attachments
thao tac voi control.ZIP
(3.02 KiB) Downloaded 174 times

User avatar
trieu4978
Thành viên chính thức
Thành viên chính thức
Posts: 22
Joined: Wed 23/06/2010 6:58 pm
Location: HCM
Contact:

Re: Hỏi về thao tác với control

Postby trieu4978 » Tue 29/06/2010 8:42 pm

Ban đầu tôi đọc yêu cầu giúp đỡ của bạn, tôi không hiểu ý bạn muốn gì nữa! (Chắc tại tôi ngu!!??!!).
Phải xem hết các đoạn code bạn viết mới nắm ý đồ của bạn! Nếu tôi ngu thì thôi, còn nếu không thì lần sau, bạn nên miêu tả rõ ý mình muốn làm gì và trở ngại ở đâu nhé!!!

Bạn chỉ sai một chỗ đặt điều kiện chưa đúng mà thôi: chỉ có đk cần mà không có đk đủ!
Hãy down bản sửa về xem thử xem có giống ý bạn muốn k nhé!
Còn một điều, tôi muốn góp ý cho bạn: nếu ý bạn chỉ làm đơn giản như vậy thôi thì không sao. Nhưng nếu yêu cầu phức tạp hơn thì bạn nên tạo hẳn một array Image cho mỗi ô nền (ở đây bạn chỉ dùng 1 array cho cả 3 ô nền), như vậy sẽ dễ quản lý và truy xuất đến chúng hơn nhiều.
Attachments
CONTROL(Fixed).zip
(3.06 KiB) Downloaded 173 times
Bao năm lầm lũi đi với đời
Vẫn bàn tay trắng với chơi vơi
Thuyền tình dăm bận rời bến nhỏ
Rượu nồng cay đắng vẫn đầy vơi!
™T

User avatar
meocondethuong
Thành viên năng nổ
Thành viên năng nổ
Posts: 75
Joined: Sun 28/02/2010 11:14 pm
Has thanked: 1 time
Been thanked: 2 times

Re: Hỏi về thao tác với control

Postby meocondethuong » Wed 30/06/2010 8:55 am

Cảm ơn trieu4978, cảm ơn sự nhiệt tình của bạn! :)

User avatar
doicanhden
Thành viên tích cực
Thành viên tích cực
Posts: 160
Joined: Wed 02/09/2009 4:29 pm
Location: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Contact:

Re: Hỏi về thao tác với control

Postby doicanhden » Thu 01/07/2010 5:52 pm

Tui Bị Trùng Chủ Đề Nên Vô Dây ! Sorry !
Tui Múk Hỏi Là Có Cách Nào Tạo Mảng Control Và Sự Kiện Của Nó Không?

Code: Select all

Dim WithEvents cmd as CommandButton
Set cmd=Controls.Add("VB.CommandButton","Nút",Form1)

Sự Kiện Click Của Nút Đó Sẽ Là

Code: Select all

Private Sub cmd_Click()
End Sub

Giờ Tui Múk Có Mảng cmd(50) Gồm 51 Nút Bấm Kèm Theo Sự Kiện Click: cmd_Click(Index as integer) Cho Mỗi Nút?
Có Thể Làm Được Hay Không ?
Câu Lạc Bộ VB

User avatar
trieu4978
Thành viên chính thức
Thành viên chính thức
Posts: 22
Joined: Wed 23/06/2010 6:58 pm
Location: HCM
Contact:

Re: Hỏi về thao tác với control

Postby trieu4978 » Thu 01/07/2010 6:18 pm

OK!!! Bạn hoàn toan có thể làm được điều đó!!! Chỉ cần dựa theo Index mà xử lý!
Trước tiên, bạn tạo một Command Button và đặt Index cho nó là 0. Sau đó, bạn có thể viết code để tạo thêm Command Button trùng tên là được. ;) :D
Bao năm lầm lũi đi với đời
Vẫn bàn tay trắng với chơi vơi
Thuyền tình dăm bận rời bến nhỏ
Rượu nồng cay đắng vẫn đầy vơi!
™T

User avatar
doicanhden
Thành viên tích cực
Thành viên tích cực
Posts: 160
Joined: Wed 02/09/2009 4:29 pm
Location: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Contact:

Re: Hỏi về thao tác với control

Postby doicanhden » Thu 01/07/2010 6:36 pm

Vậy Còn Mảng Hai Chiều ?! cmd(5,21) ?
Câu Lạc Bộ VB

User avatar
trieu4978
Thành viên chính thức
Thành viên chính thức
Posts: 22
Joined: Wed 23/06/2010 6:58 pm
Location: HCM
Contact:

Re: Hỏi về thao tác với control

Postby trieu4978 » Thu 01/07/2010 7:53 pm

Tôi chưa thử!!! Nhưng tôi nghĩ là không được!

Đây là lời thách đố à???

Nói cho tôi biết trường hợp nào bạn cần xài một mảng hai chiều gồm các button vậy???
Bao năm lầm lũi đi với đời
Vẫn bàn tay trắng với chơi vơi
Thuyền tình dăm bận rời bến nhỏ
Rượu nồng cay đắng vẫn đầy vơi!
™T

User avatar
doicanhden
Thành viên tích cực
Thành viên tích cực
Posts: 160
Joined: Wed 02/09/2009 4:29 pm
Location: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Contact:

Re: Hỏi về thao tác với control

Postby doicanhden » Sat 03/07/2010 1:00 am

Ha ha ko fải thách đố đâu!
Tại định tạo một cái có bố trí command gần giống với sudoku, nếu dùng được mảng hai chiều thì tốt!
Tui cũng nghĩ là ko đc nên chuyển sang phân vùng đặt tên rồi dùng mảng một chiều.
Àk mà cho hỏi cái nữa, ngoài chủ đề chút xíu.
Có thể hook một listview ở một chương trình khác bằng hwnd của nó ko?!
Thanks
Câu Lạc Bộ VB


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 3 guests