none
vb.net开发的控件在html页中应用两问题? RRS feed

  • 问题

  • 问题1:

    控件代码如下:

    Imports System.Runtime.InteropServices

    <Guid("e56606ed-ec1e-4760-a311-18ff1e20e669")> _
    Public Class UserControl1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox1.Text = CInt(TextBox1.Text) * 2
            MsgBox("OK")
        End Sub
    End Class

     

    然后我新建了一个html文件,用object标签把上面的控件插入HTML页

    <object classid="clsid:e56606ed-ec1e-4760-a311-18ff1e20e669"></object>

    预览这个html文件中的控件,效果很难看,而且不是一般的难看。

     

    有什么方法可以让他在html页中显示效果得到改善啊?

     

     

     

    问题2:

    另外我给该控件添加了一个事件,代码如下:

    Imports System.Runtime.InteropServices

    <Guid("e56606ed-ec1e-4760-a311-18ff1e20e669")> _
    Public Class UserControl1

        Public Event Onchanges() ‘为控件自定义一个事件

     

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox1.Text = CInt(TextBox1.Text) * 2
            MsgBox("OK")
        End Sub

     

        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
            RaiseEvent Onchanges() ’当textbox1中文本发生改变时触发UserControl1的Onchanges()事件
        End Sub
    End Class

     

    然后我新建一html文档,插入了该控件,希望检测当html页中该控件的Onchanges()事件是否真的发生了,代码如下

     

    <object classid="clsid:e56606ed-ec1e-4760-a311-18ff1e20e669" Onchanges="alert('Onchanges事件发生了')"></object>

     

    可是在预览html时,我改变了textbox1中的值,html不弹出那个alert小窗口。这个问题又如何解决呢?

    2008年9月13日 4:32

全部回复

  • 问题1的解决

    在usercontrol.designer.vb中的代码找到Sub InitializeComponent(),在这个sub第一行添加一句Application.EnableVisualStyles()以启用xp样式。总算比较好看一点了。

     

    期待问题2尽早解决

    2008年9月14日 4:40
  •  

    真的没有人来回答我的问题吗?高人们一定要出手帮忙啊。
    2008年9月15日 9:03