0

基本上我有一个表单，我想根据一些布尔语句的结果自动填充。如“IF true then celcius radiobutton is checked”

到目前为止我所拥有的是以下

公共类 Unitsofmeasureform Dim oForm 作为 Unitsofmeasureform

Public Sub Load_Units_Form()

    'Dim ws As Object
    'ws = Application.activesheet()

    Dim xlApp
    xlApp = Application
    Dim temp_units As String



    If IsNothing(oForm) OrElse oForm.IsDisposed Then
        oForm = New Unitsofmeasureform()
    End If
    oForm.Show()


    temp_units = Application.Sheets("units sheet").Range("D1").value
    If temp_units = "°C" Then

        Application.Sheets("sheet1").range("A1") = 1
        Me.celcius.Checked = True
    Else
        Application.Sheets("sheet1").range("A1") = 2
        Me.fahrenheit.Checked = True
    End If

End Sub

我正在使用一个名为 ExcelDNA 的程序将此 VB.net 表单集成到 excel 中，并且我已包含范围信息以确保 if 语句有效。但是，当表单重新加载带有标签 celcius 的单选按钮时，未选中。当我重复没有“我”的代码时，它也不会被检查。

找到了我自己的解决方案

改变

Me.celcius.Checked = True

至

oForm.celcius.Checked = True

那么这有效

4

0 回答 0