Şeffaf Formu (Opacity)
Ben küçük bir örnek göstermek istiyorum bu sefer visual basic. net Ben ilk kez yaptım ben sevdim. Bu bizim her gün kullanırım ama onlar gibi eminim ve nerede bulacaksınız bir şey değil. Özellikle ben resim göstermek ederken bu gibi "Hakkında ..." benim uygulamalar bazı ...
Bu, bir form yavaş yavaş ortaya çıkmasıdır bunu% 100 net görünüyor kadar başlar. Bunu yapmak için bir zamanlayıcı kontrolü ve form Opacity özelliğini kullanmanız gerekir.
Örneğin biz iki form (Form1 ve Form2), bir düğme ve bu düğmenin eylem ile Form1 ikinci form aramak için ne yaratacaktır. İkinci form yavaş yavaş ortaya çıkar ve biz kapattığınızda aynısını yapacağız. Bu aşağıdaki resimdeki gibi görünmelidir:
Eh, haha, işe almak.
İlk düğme ikinci form yüklemek için olay tıklatın:
Private Sub Button1_Click (System.EventArgs As System.Object, ByVal e ByVal sender As) Kolları Button1.Click Yeni Form2 Dim vForm2 gibi vForm2.ShowDialog () End Sub
Ikinci ekleme iki bileşen formun Timer (Timer1 ve TIMER2). Daha sonra aşağıdaki kodu kopyalayın:
Form2_Load Private Sub (System.EventArgs As System.Object, ByVal e ByVal sender As) Kolları MyBase.Load Me.Opacity = 0 Timer1.Interval = 25 = True Timer1.Enabled End Sub Form2_FormClosing Private Sub (System.Windows.Forms.FormClosingEventArgs As Object, ByVal e ByVal sender As) Me.FormClosing Kolları Timer2.Interval = 25 = True Timer2.Enabled Me.Opacity> 0 Then Eğer e.Cancel = True End If End Sub Timer1_Tick Private Sub (System.EventArgs As System.Object, ByVal e ByVal sender As) Timer1.Tick Kolları Eğer Me.Opacity = 1 = False Timer1.Enabled Başka + 0,02 = Me.Opacity Me.Opacity Me.Refresh () End If End Sub Timer2_Tick Private Sub (System.EventArgs As System.Object, ByVal e ByVal sender As) Timer2.Tick Kolları Me.Opacity = 0 Daha sonra ise = False Timer2.Enabled () Me.Close Başka Me.Opacity Me.Opacity = - 0.02 Me.Refresh () End If End Sub
Ben ne demek kısaca açıklayayım:
Windows Forms 0 ile 1 arasında bir değer depolayan Opacity adında bir özelliği var. Opak ve opak 1 100% 0% 0,% 100 şeffaf söylemekle aynı olurdu nereye Bu değer, formun opaklık yüzdesini gösterir. Yani bir değer olan 0.5 (istediğiniz kadar)% 50 opak veya saydam bir% 50 şeklinde olacaktı.
Ne bir Timer kontrolü miestras Gerçek ve her aralığı özelliği ile belirlenen bir aralık özelliğini etkinleştirmek etti Timer Tick olayı kod çalıştırmak için yapar.
O zaman formu (dolayısıyla acrivo Load olayı "Timer1.Enable = true" ve TIMER2 için açtığınızda için Timer1 var kapatıldığında (Form Closing olay üzerine).
Kodu kısa ve ben açıklamak çok daha fazla olduğunu düşünüyorum, çünkü Eh, açıklamalar durmayacağım.
İsterseniz bu örnek bir yorum bırakın. Benim ziyaretçilerin ne tercihlerini bilmek istiyorum.
"(Opacity) Şeffaf Form" 20 Responses
Yorum
Bilgi Bitacoras.com ...
Bitacoras.com yılında Oranı: Ben ilk defa yaptım ben sevdim bu küçük bir örnek göstermek istiyorum bu kez. Bu bizim her gün kullanırım ama onlar gibi eminim ve nerede bulacaksınız bir şey değil. Particularm ...
Teşekkür ederiz!
GMN negc ... bingung ... dr mana Dulu Mulai nya ..
GMN kenar Buatları Belgelerimiz KLU kayık?
Bu çok Buno impreciono bana haha phew
teşekkürler
Bu süper ince erkek, ama sen benim posta bana yeni şarkılar gönderebilirsiniz varsa ve ben büyük erkekler takdir olsaydı ...
İyi yağlar öğleden sonra, sizi kontrol etmek için herhangi bir örnek (etiket, düğme, çerçeve ya) şeffaf olmaz? teşekkürler
teşekkürler dostum bu ne estava arayan adam ..... sayesinde iyi olduğu kodudur
BU ESPLICADO ÇOK TEŞEKKÜR EDERİZ
Teşekkürler kardeşim ac ben bu izliyordum bir zaman, bu q şimdi sorun formu başka bir waaaaaaaaaaaa içerisinde bulunması durumunda acr q ql etkisi gerçekleşir elde değil, istenmediği aksi yanlısı acr d ulaşır.
Teşekkürler
iyi esat ....
ancak başka bir sonra görüntüleri q ua gösterilecek ama bu desvanescan veya şeffaf donukluk haline nasıl bilmek istiyorum ....
grasias umarım bana yardım et!
Ben onun donukluk, tek bir kontrol değil, formu saydam yapmak veya değiştirmek için arıyorum. herkes biliyor musun?.
Tüm kontroller bu özellik yok, her belirli bir denetim çalışmalısın.
Çok güzel çok teşekkür ederim mı
takibi çok iyi daha fazla bilgi takdir lütfen ..... bu çok ilginç
Harika.
Visual Studio bileşenlerini yönetmek için explicanción kolay çeşitli sitelerden baktı. algunso, çok zayıf olan diğerleri net değildir ve diğerleri çok şey alıp zorlaştırıyor.
Ben blog sizi tebrik etmek istiyorum. Pratik, açıklamak için "tek" ve çok yararlı.
Teşekkürler bana çok yardım etti.
Yakında benim evde var bir projeyi tamamlamak için örnekleri görmek için devam edin.
Douglas Salcedo
Miracle - Ekvador
Yorumlarınız için çok teşekkür ederim, bu blogu sürücüler ruhtur: her şeyi bilmiyorum, ama her makale mümkün olduğunca basit ve pratik her bir konu olarak açıklamak için yazılmıştır.
Saygılar
Elisha
İyi İş
ben süper şaşırıp, ben visual studio bir datagridview tıklayın nerede bir hücrenin içeriğini almak için kod bilmek gerekir lütfen, ben gerçekten takdir ediyorum, ben cevap umarım ... teşekkürler
Selam
hücrenin click olayını kod yazmak ve datagridview1.currentCell.value değerini okumak zorunda
veya
n, söz konusu sütun dizin datagridview1.currentrow.cell (n). değeri
Sana hizmet umuyoruz
GrdDatos_MouseDoubleClick Private Sub (System.Windows.Forms.MouseEventArgs As System.Object, ByVal e ByVal sender As) GrdDatos.MouseDoubleClick Kolları
Convert.ToInt32 Eğer (GrdDatos.CurrentRow.Index) <= Convert.ToInt32 (GrdDatos.Rows.Count - 2) Sonra
txtOrdeninter.Text = GrdDatos.CurrentRow.Cells (0). Value.ToString ()
End If
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 (Doğru)
Convert.ToInt32 (GrdDatos.CurrentRow.Cells (4). Değer) = 0 Daha sonra ise
= False btnModificarInter.Enabled
End If
() txtCant_EnvioInter.Focus
End Sub
Ben SİZE HİZMET UMUT