[bo]问题1：[/bo]

控件代码如下：

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页中显示效果得到改善啊？

 

 

 

[bo]问题2：[/bo]

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

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小窗口。这个问题又如何解决呢？
---------------------------------------------------------------------------------------------------------
目前第一个问题已经解决
问题1的解决

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


期待问题2尽早解决