Hỏi về thao tác với control
Moderator: tungblt
- meocondethuong
- 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
Anh, chị nào xem file đính kèm rồi sửa giúp em với.
Cảm ơn!
Cảm ơn!
- Attachments
-
- default.ZIP
- (2.71 KiB) Downloaded 187 times
-
- 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
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 194 times
Cause you're my special thing
I'm flying without wings
I'm flying without wings
- meocondethuong
- 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
- Ý 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àmUzumaki Naruto wrote:Trời, chỉ có vậy thôi? Có sẵn code hết rồi mà bạn :-|

Last edited by meocondethuong on Mon 28/06/2010 4:48 pm, edited 2 times in total.
-
- 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
Thì đây:
- Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
- 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
- End Sub
Cause you're my special thing
I'm flying without wings
I'm flying without wings
- meocondethuong
- 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
* 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!
- 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!
-
- 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
Ủ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
I'm flying without wings
- meocondethuong
- 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
* Đúng rồi, nhưng xin đọc lại, em đã ghi: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à.
(Xem file đính kèm)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?)
Càm ơn!
- Attachments
-
- thao tac voi control.ZIP
- (3.02 KiB) Downloaded 187 times
Re: Hỏi về thao tác với control
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.
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 187 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
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
- meocondethuong
- 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
- doicanhden
- 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
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?
Sự Kiện Click Của Nút Đó Sẽ Là
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 ?
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)
Code: Select all
Private Sub cmd_Click()
End Sub
Có Thể Làm Được Hay Không ?
Câu Lạc Bộ VB
Re: Hỏi về thao tác với control
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. ;)
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. ;)

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
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
- doicanhden
- 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
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???
Đâ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
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
- doicanhden
- 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
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
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