形成透明（透明度）

发表在以利沙的例子 ， 教程 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说：
    11点47 12/03/2009

    谢谢！

    回答
  3. 麻阳说：
    03/04/2009于12:36上午

    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

      我希望您服务

      回答

评论