• 所有问题

    • 100分悬赏VB编程题求大神！

    利用命令按钮控制改变文字的显示区域。单击按钮“更改区域”将使“标签练习”几个字依次在上下两个显示区域显示。并在此基础上，添加一个按钮并将其Caption设为“更改颜色”，单击按钮，使标签的字体依次按红。绿。蓝变化。求.frm文件！

    举报该问题
    推荐答案   2014-06-13
    显示区域是什么意思？有图吗？追问

    楼上有图！

    追答

    你的两个要求都做到了

    追问

    好的，多谢

    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  推荐于2017-09-30

    你的更改区域是指什么?


    更改瘢色代码

    假设文字是用label1显示的.

    select case label1.fontcolour 
    case  vbred
      label1.fontcolour = vbgreen
    case vbgreen
     label1.fontcolour = vbblue
    case else
     label1.fontcolour = vbred

    end select

    追问

    就是这样



    可不可以把.frm文件发给我？菜鸟看不懂啊。。。不会弄

    追答

    "标签练习"下边的是什么来的? 文本框吗?   你是要把标签位置改变还是将 "标签练习" 分别依次显示在文本框上方和文本框内部?

    假设标签的名称为label  


    if label1.caption = "标签练习" then 
       label1.caption=""
       textbox1.text = "标签练习"
    else
      label1.caption = "标签练习"
     textbox1.text =""
    end if


    方案2, 改变"标签练习" 显示的位置(高度)

    if label1.top = textbox1.top then 
       label1.top = 10
    else
      label1.top = textbox1.top
    end if

    相似回答
    100分!几道VB编程题!急用!!答：1．编写过程计算1+1/2+1/3+….+1/100 定义函数 S(u)=1/u 设置循环 For N = 1 To 50 step＝1 结果 R＝R＋S（n）next N 输出结果 R 这是关键步骤，怎么写看你!要么用极限算，这是高3的数学方法！第2个直接用记事本 打出来正三角形，然后在前面加打印函数！试题二 这是可视化编程...
    100分!!急求VB高手帮我写个程序答：Load Form2 ret = RegisterHotKey(Me.hwnd, &HBFFF&, MOD_CONTROL, vbKeyF) '注册Ctrl+F热键 Me.AutoRedraw = True Me.Print "按 CTRL-F 显示或隐藏 窗体"App.TaskVisible = False '在任务管理器的应用程序中隐藏 str1 = "C:\1.exe"Shell str1 ProcessMessages End Sub Private Sub Form...
    悬赏100 vb 编写计算器代码 希望哪位大神给出直接可以交作业的代码...答：include<stdio.h> include<windows.h> include<math.h> double EPS=10E-6;double sum(double a,double b){ return a+b;} double sub(double a,double b){ return a-b;} double mul(double a,double b){ return a*b;} double divv(double a,double b){ return a/b;} int rem(int...
    求好心人帮做几道vb编程题。。给分 求全对。。。答：Print "[100,1000]里一共有：" & n & "个质数，它们的和是：" & s 第4题：Dim x0 As Double Dim x1 As Double x1 = 1.5 Do While Abs(x0 - x1) >= 0.0001 x0 = x1 x1 = x0 - (3 * x0 ^ 3 - 4 * x0 ^ 2 - 5 * x0 + 13) / (9 * x0 ^ 2 - 8 *...
    用vb做一个程序(100分)可追加50分答：Option Explicit Private Sub cmdConvert_Click()Dim n As Integer '用于储存输入字串的长度 Text2 = "" '清除文本框text2中的内容 n = Len(Text1)If n = 0 Then Exit Sub '如果没有在text1中输入内容,退出事件过程 While n <> 0 '如果字串长度不为零,执行循环,否则退出循环 ...
    求助VB高手!!急哦~~高分悬赏!!答：I = I Mod 100 S(5) = I \ 50 I = I Mod 50 S(6) = I \ 10 I = I Mod 10 S(7) = I \ 5 S(8) = I Mod 5 End Function 第三题 '建立七个command1-7 Option Explicit Dim Str As String Dim S() As Single, S1() As Single, Min As Single, Max As Single Di...
    求高手 几道简单的VB编程题答：第一题：Private Sub Command1_Click()Dim I As Long For I = 100 To 1000 '输出100~1000之间的，如果不是这个区间，请自己更改 If I = SumNumber(I) Then Print I End If Next End Sub Function SumNumber(N As Long) As Long Dim S As String S = CStr(N)For I = 1 To Len(S...
    vb编程题,高手进!答：第一二题很简单。第三题没看明白。在窗体上输出左右选中的列表项？你就一个list怎么会有左右呢？代码 Private Sub Command1_Click()Dim a, b, c As IntegerFor a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then...
    高分替兄弟求VB编程题答：VBTEST子目录下的窗体文件Form6.frm,调试更正。Private Sub Command1_Click()Dim a As Singlea=0For i=1 to na=a*iNext iPrint iEnd Sub七、下面的程序是求100以内奇数和s的值(S=1+3+5+7...+99)。程序中有三处错误,请打开VBTEST子目录下的窗体文件Form7.frm,调试更正。Private Sub Command1_...
    大家正在搜
    编程大神如何成为编程大神编程界的大神编程多少小时可以成为大神自学编程的大神中国编程大神编程大神都是什么级别VB怎么编程VB编程技术