形成透明（透明度）

發表在以利沙的例子 ， 教程 03 6，2009 | 20

這一次，我要顯示在Visual Basic中的小例子。淨 ，我喜歡當我第一次。 這不是我們每天使用的，但我相信他們會喜歡和你會發現這裡的東西。 我特別喜歡使用它，當我顯示圖片“關於...”在我的一些應用程序...

這是逐漸出現的一種形式，開始直到它看起來清晰100％。 要做到這一點，我們需要使用一個定時器控制和Opacity屬性的形式。

在這個例子中，我們將創建兩個窗體（Form1和Form2），Form1上有一個按鈕，這個按鈕的作用是調用第二種形式。 第二種形式將逐漸顯現，也將這樣做，當我們關閉。 它應該看起來像下面的圖片：

嗯，去上班，哈哈。

首先，按一下按鈕事件載入第二種形式： 

私人小組中button1_Click（0 System.Object的，BYVAL e由於發件人）把手Button1.Click
    作為新Form2的點心vForm2
     vForm2.ShowDialog（）
 END SUB

在第二個插入兩部分組成形式的定時器（Timer1和Timer2的）。 然後複製下面的代碼： 

 Form2_Load私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）把手MyBase.Load
     Me.Opacity = 0
     Timer1.Interval = 25
     Timer1.Enabled =
 END SUB

私人小組Form2_FormClosing（BYVAL作為對象，像System.Windows.Forms.FormClosingEventArgs BYVALé發件人）處理Me.FormClosing
     Timer2.Interval = 25
     Timer2.Enabled =
    如果Me.Opacity> 0，則
         e.Cancel =真
    結束如果
 END SUB

 Timer1_Tick私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）處理Timer1.Tick
    如果Me.Opacity = 1，然後
         Timer1.Enabled =假
    其他
         Me.Opacity Me.Opacity + 0.02 =
         Me.Refresh（）
    結束如果
 END SUB

 Timer2_Tick私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）處理Timer2.Tick
    如果Me.Opacity = 0
         Timer2.Enabled =假
         Me.Close（）
    其他
         Me.Opacity Me.Opacity =  -  0.02
         Me.Refresh（）
    結束如果
 END SUB

它做什麼，我將簡要解釋：

Windows窗體的Opacity屬性存儲從0到1之間的值。 此值表示形式的不透明度的百分比，其中1 100％0 0％不透明的和不透明的，這將是相同的話說，100％透明。 因此，值0.5將有50％的形式，50％不透明或透明的（只要你喜歡）。

是什麼使一個Timer控件是運行在定時器的Tick事件代碼已miestras啟用屬性True和每一個由Interval屬性決定的時間間隔。
那麼我們就當你打開的形式（因此acrivo“Timer1.Enable =真正的”Load事件和定時器Timer1的關閉時在窗體的Closing事件。

好吧，我不會詳細說明上解釋，因為代碼很短，我覺得還有更多比澄清。

如果你喜歡這個例子中發表評論。 我想知道我的訪問者的喜好。

20回應“形成透明（透明度）”

  1. Bitacoras.com 說：
    06/03/2009於10:52上午

    信息Bitacoras.com ...

    在Bitacoras.com率：這一次，我想顯示一個小例子，我喜歡當我做了第一次。 這不是我們每天使用的，但我相信他們會喜歡和你會發現這裡的東西。 particularm ...

    回答
  2. fluireemi說：
    12/03/2009於11:47上午

    謝謝！

    回答
  3. 麻陽說：
    12時36分03/04/2009

    GMN negc ... bingung ...法力堵路Mulai NYA博士......
    GMN側邊欄buat KLU皮艇？

    回答
  4. galvis說：
    17/08/2009於6:31下午

    唷這非常BUNO impreciono我哈哈
    謝謝

    回答
  5. 若澤·曼努埃爾說：
    26/10/2009於9:45下午

    這種超精細的男人，但如果你，如果你可以給我新的歌曲到我的郵箱，我將不勝感激男人......

    回答
  6. 框架梅迪納說：
    04/11/2009於8:18下午

    下午好脂肪，你不會有任何實際的例子來控制（或者標籤，按鈕，幀）透明？ 謝謝

    回答
  7. 喬爾說：
    26/01/2010於下午5:10

    感謝的人，這是很好的代碼是什麼estava的男人.....感謝

    回答
  8. 塞巴斯蒂安說：
    25/05/2010於5:28下午

    非常感謝你這ESPLICADO

    回答
  9. NazGarB說：
    02/06/2010於6:41下午

    感謝BRO交流我是看著這一段時間，達到親ACRð否則Q不是想要的，現在的麻煩是無法實現ACR q QL影響時發生的形式包含在另一個waaaaaaaaaaaa。

    謝謝

    回答
  10. jhonathan說：
    16/06/2010於12:02上午

    ESAT以及....
    但想知道如何顯示圖像q UA層出不窮，但該desvanescan或變得透明不透明....

    grasias希望幫助我！

    回答
  11. 愛德華說：
    01/07/2010於6:32上午

    我期待透明，或改變其透明度，單一的控制，而不是形式。 有誰知道嗎？

    回答
  12. 埃德說：
    2時59分28/08/2010

    非常好非常感謝你

    回答
  13. 埃德溫說：
    20/10/2010於12:56下午

    非常良好的後續升值更多信息，請.....這很有趣

    回答
  14. 道格拉斯·薩爾塞多說：
    30/10/2010於8:47下午

    大。

    我看了幾個網站explicanción易於管理的Visual Studio組件。 algunso很差，別人不明確，採取很多事情和複雜。

    我要祝賀你的博客。 實際，“單一”的解釋和非常有益的。

    感謝你對我幫助很大。

    繼續看你的例子，很快完成一個項目，我有我的房子。

    道格拉斯·薩爾塞多
    奇蹟 - 厄瓜多爾

    回答
    • 以利沙說：
      10/11/2010於12:27下午

      非常感謝你的意見，這是推動這個博客：不知道一切的精神，但每一篇文章的書面解釋為盡可能簡單和實用的每個主題。
      問候
      以利沙

      回答
  15. 大衛說：
    18/11/2011於3:44下午

    好工作

    回答
  16. 阿比蓋爾說：
    25/11/2011於12:34

    請，我超級卡住了，我需要知道的代碼檢索一個單元格的內容，我點擊一個在Visual Studio中的DataGridView，我會很感激，我希望你的答案...謝謝

    回答
    • 以利沙說：
      25/11/2011於2:31下午

      你好
      寫在細胞的click事件代碼和閱讀價值datagridview1.currentCell.value

      或

      datagridview1.currentrow.cell（N）值，其中n是有問題的列的索引。

      我希望你服務

      回答
    • 大衛說：
      01/12/2011於6:52下午

      私人小組GrdDatos_MouseDoubleClick（BYVAL發件人作為System.Object的，BYVAL e由於System.Windows.Forms.MouseEventArgs）處理GrdDatos.MouseDoubleClick

      如果Convert.ToInt32（GrdDatos.CurrentRow.Index）<= Convert.ToInt32（GrdDatos.Rows.Count - 2）
      txtOrdeninter.Text = GrdDatos.CurrentRow.Cells（0）。Value.ToString（）
      結束如果
      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）
      如果Convert.ToInt32（的GrdDatos.CurrentRow.Cells（4）價值）= 0
      btnModificarInter.Enabled =假
      結束如果
      txtCant_EnvioInter.Focus（）
      END SUB

      我希望您服務

      回答

評論