复选框失灵了?

本帖最后由 bcrun 于 2011-02-25 21:53:46 编辑 隶书加下划线不显示是BUG吧。

Private Sub txt1_Change()

txt1.Text = "我们加油吧!好好努力!"

End Sub

这简直就是一个递归 …… 在LABEL中是可以显示。

Private Sub ck1_Click()

    If ck1.Value = 1 Then

        txt1.Font = "隶书"

        txt1.FontUnderline = True

    Else

        txt1.Font = "宋体"

        txt1.FontUnderline = False

    End If

End Sub

本帖最后由 bcrun 于 2011-02-25 21:54:19 编辑 谢谢指点!把隶书改成幼圆,就一切问题OK啦!!!

引用 7 楼 chopsticks_123 的回复:

急聘 兼职网络信息回复员（若干名）100元/天 工资日结

--------招聘人数: 若干名 　薪资待遇: 工作每天3-5小时，100元/天工资每日支付；
岗位描述: 负责公司所要求的信息回复工作（有内容样版），工作地点不限，专兼职均可！
应聘要求: 上网熟练，平均每天工作投入约3小时，具体根据效率自定； 学历不限，在
职或学生皆可；勤奋，认真，有责任感；熟悉用电脑发消息的整个流程。（……

先打点款过来花花，表示你的诚意？

引用 7 楼 chopsticks_123 的回复:

急聘 兼职网络信息回复员（若干名）100元/天 工资日结

--------招聘人数: 若干名 　薪资待遇: 工作每天3-5小时，100元/天工资每日支付；
岗位描述: 负责公司所要求的信息回复工作（有内容样版），工作地点不限，专兼职均可！
应聘要求: 上网熟练，平均每天工作投入约3小时，具体根据效率自定； 学历不限，在
职或学生皆可；勤奋，认真，有责任感；熟悉用电脑发消息的整个流程。……

中国网络水军无限公司？

补充：VB ,  基础类