Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Đổi biểu tượng trong nút lệnh
#1
Em có một ý tưởng như thế này mà chưa thực hiện được mong các bác giúp đỡ.
1.Trong một form em mới tạo em tạo một nút khóa, mở khóa có biểu tượng
giờ em muốn khi bấm vào nút khóa thì thông báo đã mở khóa thành công và cái biểu tượng khóa chuyển thành biểu tượng mở khóa, nếu bấm vào lần 2 thì đảo ngược lại. 
em thử dùng lệnh 
khoa.picture nhưng không được.
2. Trong lúc làm cái này em thử tạo 2 nút bấm khóa xong thì ẩn luôn khóa đi cho hiện nút mở khóa, nhưng nó cứ báo lỗi ở dòng 
khoa.visible có phải là 1 button không thể tự ẩn chính nó đi được không.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Khi bấm đổi hình cũng được hoặc tạo 2 nút rồi ẩn/hiện cũng được luôn nhé bạn. Chỉ do bạn làm sai cách thôi.

1. Đổi icon của CommandButton:
- Hình để đổi phải có đuôi là .ico hoặc .bmp
- Có độ phân giải phù hợp: 16 x16 - 50 x 50 pixel
- Cung cấp đường dẫn tới file icon hoặc bmp trong phương thức: CommandButton.Picture = "Đường dẫn tới file ảnh"
- Ví dụ:
    Private cmdKhoa_Click()
     If KetQua = True Then
        Me.cmdKhoa.Picture = "D:\Iconset\khoa.bmp"
     Else
        Me.cmdKhoa.Picture = "D:\Iconset\mokhoa.bmp"
     End If
  End Sub

2. Ẩn/ hiện Command button:
Để ẩn chính nó thì bạn phải chuyển con trỏ qua control khác trên form rồi mới set Visible = False
Vd: 
Private Sub cmdKhoa_Click()
    Me.cmdDong.SetFocus
    Me.cmdKhoa.Visible = False
    Me.cmdMoKhoa.Visible = True
End Sub
(Làm ngược lại cho nút kia)
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy , NguyenDungAnh
#3
Làm như ongke0711 cũng OK nhưng dễ bị lỗi trong các trường hợp nguồn biểu tượng bị xóa hoặc đưa chương trình sang máy khác bắt buột phải chép nguồn biểu tượng theo. Để đơn giản hơn NguyenDungAnh có thể xử lý như sau:
Thay gì chỉ có nút lệnh <Khoa>, tạo thêm 2 nút lệnh <MoKhoa> có ảnh ổ khóa được mở và <KhoaLai> có ảnh ổ khóa được đóng lại. Hai nút lệnh <MoKhoa> và <KhoaLai> chỉ có nhiệm vụ lưu trữ ảnh. Để không bị lỗi khi mất ảnh thiết đặt Picture Type của hai nút lệnh đó là Embedded. Để dấu hai nút lệnh <MoKhoa> và <KhoaLai> khi show form thiết đặt Visible của 2 nút này là No
Bạn sẽ không dùng nút lệnh để xử lý khóa và mở khóa. Thay thế nút lệnh <Khoa> bằng Toggle Button <Khoa> để xử lý điều kiện Yes/No. Ví vụ Yes là khóa và No là mở khóa
Mã:
If Khoa.Value = True Then
          Khoa.PictureData = KhoaLai.PictureData
Else
          Khoa.PictureData = MoKhoa.PictureData
End If
Với phương pháp này bạn có thể xử lý cho nhiều trường hợp với nhiều hình ảnh cũng như có thể mang phần mềm bất kỳ nơi đâu mà không quan tâm đến nguồn ảnh hiển thị.
Chúc bạn thành công
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ongke0711 , NguyenDungAnh
#4
Những thủ thuật này thì phải kiếm anh Ân rồi. Cả một kho sáng tạo.  007
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn NguyenDungAnh
#5
Em hiểu ra rồi cám ơn 2 bác nhiều.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
Em nghĩ ra được một cách nữa là resize cho cái button nó về bằng 0x0 rồi resize lại cái kia đảo cho nhau. 
big green
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách tạo Cbo để lọc các mặt hàng trong Sub Form samacxanh 3 256 17-10-18, 10:33 AM
Bài mới nhất: vulhu06
  Tạo thêm trường số thứ tự trong subform? feeling 1 119 05-10-18, 08:08 AM
Bài mới nhất: cpucloi
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 9 645 25-09-18, 12:00 PM
Bài mới nhất: ledangvan
  [Help] Sự kiện gotforcus và after update ko đúng trong Main-sub form NguyenDungAnh 9 388 09-09-18, 11:03 PM
Bài mới nhất: NguyenDungAnh
  [Help] Khoá phím shift + khóa Design View trong access Cuong Servenet 1 188 22-08-18, 02:18 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line