Foxtable(狐表)用戶欄目專家坐堂 → 如何動態設定RadioButton文本的寬度啊


  共有327人關注過本帖樹形打印復制鏈接

主題:如何動態設定RadioButton文本的寬度啊

帥哥喲,離線,有人找我嗎?
迷途小童
  1樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:82 積分:556 威望:0 精華:0 注冊:2018/6/13 21:37:00
如何動態設定RadioButton文本的寬度啊  發帖心情 Post By:2019/12/7 15:16:00 [只看該作者]

如題,如何在窗口中動態設定RadioButton文本顯示的寬度啊,請教各位專家

 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  2樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:41019 積分:208495 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2019/12/7 15:28:00 [只看該作者]

Dim rb As WinForm.RadioButton = e.Form.Controls("RadioButton1")
rb.Width = 100

 回到頂部
帥哥喲,離線,有人找我嗎?
迷途小童
  3樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:82 積分:556 威望:0 精華:0 注冊:2018/6/13 21:37:00
  發帖心情 Post By:2019/12/7 15:43:00 [只看該作者]

不是這個,我想表達的意思是,rb.text內容是動態的,如何把text的內容顯示全了

 


 回到頂部
帥哥喲,離線,有人找我嗎?
迷途小童
  4樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:82 積分:556 威望:0 精華:0 注冊:2018/6/13 21:37:00
  發帖心情 Post By:2019/12/7 15:44:00 [只看該作者]

他的寬度不定


 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  5樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:41019 積分:208495 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2019/12/7 15:46:00 [只看該作者]

就是這個呀。估算一個1個字符大概多寬。根據字符數量設置控件的高和寬

 回到頂部
帥哥喲,離線,有人找我嗎?
迷途小童
  6樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:82 積分:556 威望:0 精華:0 注冊:2018/6/13 21:37:00
  發帖心情 Post By:2019/12/7 16:15:00 [只看該作者]


        '生成題目
        dr = DataTables("題庫").Find("[序號] = '" & pd.Name & "'")
        'str =
        Forms(Arg0).Controls("Label1").Text = StrToWide("(") & pd.Text &  StrToWide(")") & dr("題目內容") & vbcrlf & vbcrlf '顯示題目內容
        Forms(Arg0).Controls("Label1").Width = Forms(Arg0).Controls("GroupBox1").Width - 100
       
        Dim pbx As WinForm.PictureBox = Forms(Arg0).Controls("PictureBox1")
        Dim h As  Integer '設定控件高度
        Dim rb_A As WinForm.RadioButton
        Dim rb_B As WinForm.RadioButton
        Dim rb_C As WinForm.RadioButton
        Dim rb_D As WinForm.RadioButton
        Forms("窗口12").RemoveControl("rb_A")
        Forms("窗口12").RemoveControl("rb_B")
        Forms("窗口12").RemoveControl("rb_C")
        Forms("窗口12").RemoveControl("rb_D")
        If dr.IsNull("圖片") Then
            pbx.Visible = False
            h = Forms(Arg0).Controls("Label1").Height + Forms(Arg0).Controls("Label1").Top 
        Else
            pbx.Visible = True
            pbx.Top = Forms(Arg0).Controls("Label1").Height + Forms(Arg0).Controls("Label1").Top  '設定圖片位置
            pbx.Image = GetImage(dr("圖片")) '顯示圖片
            h = pbx.Height + pbx.Top
        End If
        '創建選項A
        rb_A =  Forms("窗口12").CreateControl("rb_A", ControlTypeEnum.RadioButton)
        rb_A.Text = vbcrlf & "A." & dr("選項_A")
        rb_A.Left = Forms(Arg0).Controls("Label1").Left
        rb_A.Top = h
        rb_A.TextAlign  = ContentAlignment.MiddleLeft
        rb_A.Width = Forms(Arg0).Controls("GroupBox1").Width
       
        Forms("窗口12").Controls("GroupBox1").AddControl(rb_A)

        '創建選項B
        h = h + rb_A.Height
        rb_B = Forms("窗口12").CreateControl("rb_B", ControlTypeEnum.RadioButton)
        rb_B.Top = h
        rb_B.Left = Forms(Arg0).Controls("Label1").Left
        rb_B.Text = vbcrlf & "B." & dr("選項_B")
        rb_B.Width = Forms(Arg0).Controls("GroupBox1").Width
        rb_B.TextAlign = ContentAlignment.MiddleLeft
        Forms("窗口12").Controls("GroupBox1").AddControl(rb_B)
       
        '創建選項C
        h = h + rb_B.Height
        rb_C = Forms("窗口12").CreateControl("rb_C", ControlTypeEnum.RadioButton)
        rb_C.Top = h
        rb_C.Left = Forms(Arg0).Controls("Label1").Left
        rb_C.Text = vbcrlf & "B." & dr("選項_C")
        rb_C.Width = Forms(Arg0).Controls("GroupBox1").Width
        rb_C.TextAlign = ContentAlignment.MiddleLeft
        Forms("窗口12").Controls("GroupBox1").AddControl(rb_C)
       
        '創建選項D
        h = h + rb_C.Height
        rb_D = Forms("窗口12").CreateControl("rb_D", ControlTypeEnum.RadioButton)
        rb_D.Top = h
        rb_D.Left = Forms(Arg0).Controls("Label1").Left
        rb_D.Text = vbcrlf & "D." & dr("選項_D")
        rb_D.Width = Forms(Arg0).Controls("GroupBox1").Width
        rb_D.TextAlign = ContentAlignment.MiddleLeft
        Forms("窗口12").Controls("GroupBox1").AddControl(rb_D)

 

我的選項內容是變動的,RadioButton的寬度根據選項內容自行調整寬度,使內容顯示完全,另外也請老師幫看一下,我設定了文本對齊方式,但一直對不齊,我把文件上傳上來了

 下載信息  [文件大小:   下載次數: ]
點擊瀏覽該文件:考試系統.table


 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  7樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:41019 積分:208495 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2019/12/7 16:38:00 [只看該作者]

對不齊是在前面加了一個回車換行導致的,去掉即可

rb_A.Text = vbcrlf & "A." & dr("選項_A") 

 回到頂部
帥哥喲,離線,有人找我嗎?
迷途小童
  8樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:82 積分:556 威望:0 精華:0 注冊:2018/6/13 21:37:00
  發帖心情 Post By:2019/12/7 17:18:00 [只看該作者]

謝謝藍爸,再請教一下的老師,Label1標簽不設定寬度顯示內容太長,設定寬度后高度又不隨顯示內容自動調整這個又怎么解決呢,謝謝!


 回到頂部
帥哥喲,離線,有人找我嗎?
有點藍
  9樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:41019 積分:208495 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2019/12/7 17:29:00 [只看該作者]

高度自動調整

Dim Label1 As WinForm.Label = Forms(Arg0).Controls("Label1")

Label1.Text = StrToWide("(") & pd.Text &  StrToWide(")") & dr("題目內容") & vbcrlf & vbcrlf '顯示題目內容
Label1.Width = Forms(Arg0).Controls("GroupBox1").Width - 100

Dim gc As Graphics = BaseMainform.CreateGraphics()
Dim size As SizeF = gc.MeasureString(Label1.Text, Label1.Font,Label1.Width)
Label1.Height = size.Height 

 回到頂部
帥哥喲,離線,有人找我嗎?
迷途小童
  10樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:82 積分:556 威望:0 精華:0 注冊:2018/6/13 21:37:00
  發帖心情 Post By:2019/12/7 17:49:00 [只看該作者]

老師,我測試了,還是行,沒有變化的圖片點擊可在新窗口打開查看

 回到頂部
總數 21 1 2 3 下一頁
229期22选5开奖结果