Form trong suốt (Opacity)
Thời gian này tôi muốn hiển thị một ví dụ nhỏ trong hình ảnh cơ bản net mà tôi thích khi tôi đã lần đầu tiên. Nó không phải một cái gì đó chúng ta sử dụng hàng ngày nhưng tôi chắc chắn họ sẽ thích và bạn sẽ tìm thấy nơi. Tôi đặc biệt thích sử dụng nó khi tôi cho thấy hình ảnh "About ..." trong một số ứng dụng của tôi ...
Nó là sự xuất hiện dần dần của một hình thức, bắt đầu cho đến khi nó rõ ràng 100%. Để làm điều này, chúng ta cần phải sử dụng một bộ đếm thời gian và kiểm soát tài sản Opacity của biểu mẫu.
Trong ví dụ này, chúng tôi sẽ tạo ra hai hình thức (Form1 và Form2), Form1 với một nút và hành động của nút này là để gọi hình thức thứ hai. Hình thức thứ hai sẽ xuất hiện dần dần và sẽ làm như vậy khi chúng tôi đóng. Nó sẽ giống như trong hình dưới đây:
Tốt, có được để làm việc, haha.
Đầu tiên là nút bấm vào sự kiện để tải các hình thức thứ hai:
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Button1.Click Theo New Form2 Dim vForm2 vForm2.ShowDialog () End Sub
Trong chèn thứ hai, hai thành phần hình thức của Timer (Timer1 và Timer2). Sau đó copy đoạn mã sau:
Form2_Load Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load Me.Opacity = 0 Timer1.Interval = 25 Timer1.Enabled = True End Sub Form2_FormClosing Private Sub (ByVal người gửi Như Object ByVal e, Như System.Windows.Forms.FormClosingEventArgs) Xử lý Me.FormClosing Timer2.Interval = 25 Timer2.Enabled = True > 0 Sau đó, nếu Me.Opacity e.Cancel = True Cuối Nếu End Sub Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Timer1.Tick Nếu Me.Opacity = 1 Sau đó, Timer1.Enabled = False Khác Me.Opacity Me.Opacity + 0,02 = Me.Refresh () Cuối Nếu End Sub Timer2_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Timer2.Tick Nếu Me.Opacity = 0 Sau đó, Timer2.Enabled = False Me.Close () Khác Me.Opacity Me.Opacity = - 0,02 Me.Refresh () Cuối Nếu End Sub
Tôi sẽ giải thích ngắn gọn những gì nó làm:
Windows Forms có một tài sản được gọi là Opacity mà các cửa hàng một giá trị 0-1. Giá trị này cho biết tỷ lệ phần trăm độ mờ của hình thức, nơi mà 1 100% 0 0 đục và mờ đục%, đó sẽ là tương tự như nói 100% trong suốt. Vì vậy, với một giá trị 0,5 sẽ có một hình thức 50% 50% mờ đục hoặc trong suốt (như bạn muốn).
Điều gì làm cho một điều khiển Timer là để chạy các mã trong sự kiện Tick Timer đã miestras cho phép tài sản để True và mỗi một khoảng thời gian được xác định bởi thuộc tính Interval.
Sau đó, chúng tôi có Timer1 khi bạn mở hình thức (vì thế acrivo "Timer1.Enable = True" trong sự kiện Load và Timer2 khi đóng cửa (các sự kiện đóng cửa Mẫu).
Vâng, tôi sẽ không xây dựng trên giải thích vì mã này là ngắn và tôi nghĩ rằng có nhiều hơn nữa vì làm rõ.
Nếu bạn thích ví dụ này để lại một bình luận. Tôi muốn biết những sở thích của khách truy cập của tôi.
20 hồi đáp tới "mẫu trong suốt (Opacity)"
Bình luận
Thông tin Bitacoras.com ...
Tỷ giá trong Bitacoras.com: Thời gian này tôi muốn hiển thị một ví dụ nhỏ mà tôi thích khi tôi đã lần đầu tiên. Nó không phải một cái gì đó chúng ta sử dụng hàng ngày nhưng tôi chắc chắn họ sẽ thích và bạn sẽ tìm thấy nơi. Particularm ...
Cảm ơn bạn!
GMN negc ... bingung ... dr mana Dulu Mulai Nya ..
GMN sidebar buat KLU kayak?
Chao ôi này rất Buno haha impreciono tôi
cảm ơn
Siêu người đàn ông này tốt, nhưng nếu bạn nếu bạn có thể gửi cho tôi bài hát mới để mail của tôi và tôi sẽ đánh giá cao rất nhiều người đàn ông ...
Buổi chiều tốt chất béo, bạn sẽ không có bất kỳ ví dụ để kiểm soát (một trong hai nhãn, nút, khung) minh bạch? cảm ơn
nhờ người đàn ông này là tốt mã đó là những gì estava tìm kiếm người đàn ông .....
CẢM ƠN BẠN RẤT TỐT này ESPLICADO
Cảm ơn bro ac một thời gian tôi đã được xem này, nó đạt được pro ACR d nếu không q không muốn, bây giờ những rắc rối không đạt được ACR q ql hiệu lực diễn ra khi biểu mẫu được chứa trong một waaaaaaaaaaaa.
Cảm ơn
ESAT cũng ....
nhưng muốn biết làm thế nào để hiển thị hình ảnh q ua khác nhưng điều đó desvanescan hoặc trở thành trong suốt opacity ....
grasias hy vọng giúp tôi!
Tôi đang tìm để làm cho minh bạch, hoặc thay đổi độ mờ của nó, duy nhất kiểm soát, không phải là hình thức. ai biết?
Không phải tất cả các điều khiển có các tài sản này, bạn nên nghiên cứu từng điều khiển cụ thể.
Rất tốt cảm ơn bạn rất nhiều
rất tốt theo dõi được đánh giá cao thêm thông tin xin vui lòng ..... điều này rất thú vị
Tuyệt vời.
Tôi nhìn một số trang web explicanción dễ dàng để quản lý các thành phần của Visual Studio. algunso rất nghèo, những người khác là không rõ ràng và những người khác mất nhiều thứ và phức tạp.
Tôi muốn chúc mừng bạn trên blog của bạn. Thực tế, "duy nhất" để giải thích và rất hữu ích.
Cảm ơn bạn đã giúp tôi rất nhiều.
Tiếp tục để xem các ví dụ của bạn sớm hoàn thành một dự án tôi có trong nhà của tôi.
Douglas Salcedo
Miracle - Ecuador
Cảm ơn bạn rất nhiều vì bình luận của bạn, điều này là tinh thần mà các ổ đĩa blog này: tôi không biết tất cả mọi thứ, nhưng tất cả các bài viết để giải thích nó như là mỗi môn học đơn giản và thiết thực nhất có thể.
Kính trọng
Elisha
Good Job
xin vui lòng, tôi siêu khó khăn, tôi cần phải biết mã để lấy nội dung của một tế bào, nơi tôi bấm vào một datagridview trong phòng thu trực quan, tôi thực sự đánh giá cao nó, tôi hy vọng câu trả lời của bạn ... nhờ
Hi
phải viết code trong sự kiện click của tế bào và đọc giá trị của datagridview1.currentCell.value
hoặc
datagridview1.currentrow.cell (n) giá trị trong đó n là chỉ số của cột trong câu hỏi.
Tôi hy vọng bạn phục vụ
Private Sub GrdDatos_MouseDoubleClick (ByVal người gửi Như System.Object, ByVal e Như System.Windows.Forms.MouseEventArgs) Xử lý GrdDatos.MouseDoubleClick
Nếu Convert.ToInt32 (GrdDatos.CurrentRow.Index) <= Convert.ToInt32 (GrdDatos.Rows.Count - 2) Sau đó,
txtOrdeninter.Text = GrdDatos.CurrentRow.Cells (0). Value.ToString ()
Cuối Nếu
txtOrdeninter.Text = GrdDatos.CurrentRow.Cells (0). Value.ToString ()
txtPartinter.Text = GrdDatos.CurrentRow.Cells (1). Value.ToString ()
txtCant_ter1inter.Text = GrdDatos.CurrentRow.Cells (4). Value.ToString ()
txtcantdisp.Text = GrdDatos.CurrentRow.Cells (5). Value.ToString ()
txtCant_EnvioInter.Text = GrdDatos.CurrentRow.Cells (6). Value.ToString ()
txtLotinter.Text = GrdDatos.CurrentRow.Cells (10). Value.ToString ()
txtMedidaInter.Text = GrdDatos.CurrentRow.Cells (13). Value.ToString ()
ActDesBotones (True)
Nếu Convert.ToInt32 (GrdDatos.CurrentRow.Cells (4). Giá trị) = 0 Sau đó,
btnModificarInter.Enabled = False
Cuối Nếu
txtCant_EnvioInter.Focus ()
End Sub
Tôi hy vọng của bạn PHỤC VỤ