40分问两个小问题，很简单的(入门级的)，高手来拿分。在线等。-CSDN论坛

40分问两个小问题，很简单的(入门级的)，高手来拿分。在线等。

VB > VB基础类

收藏回复

[问题点数：40分，结帖人mfkiqpl]

⋅aspnet_merge.exe已退出，代码为1。莫名其妙的问题，进来看下~有图有真相 ⋅DataGridView滚动条拉到最下面后，最后一条下面总是有间隙，怎么去掉？ ⋅求个加密算法（新浪微博的地址加密） 更多帖子 关注私信空间博客 mfkiqpl 等级 本版专家分：22 结帖率 100%: 问题一：
现有一个textbox，允许显示多行。
for i=1 to 100
text1.text=text1.text & vbcrlf & i
doevents
next
上面代码可让文本框显示循环结果。。但是如果循环次数太多或者要显示的内容太多。。就会很慢慢。
有没有更快的办法代替：text1.text=text1.text & vbcrlf & i 这句？

问题二：
现有窗口 Form1 当前窗口已设置最大化按钮失效。目的就是为了不让用户改变窗体大小。但是还是可以拉动窗口边缘来达到改变窗口大小的目的。如何让用户不能调整窗口大小？

请高手一一解答。小弟感谢！

2005-05-15 22:04:55

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅关于加密解密的java代码转php版本求助 ⋅高频率的执行一条语法错误的sql,会影响数据库性能么 ⋅客户电脑访问网站，后台读session报错，显示Undefined index: 更多帖子 关注私信空间博客 itcoco 等级 本版专家分：1307: 1〉
Dim s As String
For i = 1 To 1000
s = s & vbCrLf & i
Next
Text1.Text = s 我试了一下这样子比直接text1.text=text1.text & i快

2 form的bordersytle设为1

2005-05-15 22:22:28

点赞只看TA 引用举报 #1得分 10

⋅aspnet_merge.exe已退出，代码为1。莫名其妙的问题，进来看下~有图有真相 ⋅DataGridView滚动条拉到最下面后，最后一条下面总是有间隙，怎么去掉？ ⋅求个加密算法（新浪微博的地址加密） 更多帖子 关注私信空间博客 mfkiqpl 等级 本版专家分：22: 回楼上的问题一解答。。
我要实时的显示结束。。不能全部显示。。所以如果在循环外了就不能实时的显示了。。

问题2。我现在用你的访问试验。。

2005-05-15 22:24:58

点赞只看TA 引用举报 #2得分 0

⋅aspnet_merge.exe已退出，代码为1。莫名其妙的问题，进来看下~有图有真相 ⋅DataGridView滚动条拉到最下面后，最后一条下面总是有间隙，怎么去掉？ ⋅求个加密算法（新浪微博的地址加密） 更多帖子 关注私信空间博客 mfkiqpl 等级 本版专家分：22: 第二个问题我测试了。。
form的bordersytle设为1
后。连最小化按扭也没了。。我要有最小化按钮。

2005-05-15 22:27:15

点赞只看TA 引用举报 #3得分 0

⋅怎么样在项目中查找项目引用那些dll ？ ⋅求助！！急找一单d触发器（只带清零的）双的也可以谢谢！！！！ ⋅找一个上电时候q输出可以确定的d 触发器 更多帖子 关注私信空间博客 domhuang 等级 本版专家分：1197: Dim x1 As Single
Dim y1 As Single
Dim sfw As Boolean
Dim sfh As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > Form1.Width - 100 Then
sfw = True
x1 = X
Form1.Print "zoom1"
End If

If Y > Form1.Height - 100 Then
sfh = True
y1 = Y
Form1.Print "zoom2"
End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If sfw Then
Form1.Width = Form1.Width - (x1 - X)
x1 = X

'Label1.Caption = X
'Label2.Caption = Form1.Width

End If

If sfh Then
Form1.Height = Form1.Height - (y1 - Y)
y1 = Y
End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
sfw = False
sfh = False

End Sub

模仿windows y有边框
第二个问题

2005-05-15 22:30:25

点赞只看TA 引用举报 #4得分 10

⋅怎么样在项目中查找项目引用那些dll ？ ⋅求助！！急找一单d触发器（只带清零的）双的也可以谢谢！！！！ ⋅找一个上电时候q输出可以确定的d 触发器 更多帖子 关注私信空间博客 domhuang 等级 本版专家分：1197: 哦　不好意思楼主搞错了　我这个也没有　最小化的按扭　　只能缩放

2005-05-15 22:33:19

点赞只看TA 引用举报 #5得分 0

⋅aspnet_merge.exe已退出，代码为1。莫名其妙的问题，进来看下~有图有真相 ⋅DataGridView滚动条拉到最下面后，最后一条下面总是有间隙，怎么去掉？ ⋅求个加密算法（新浪微博的地址加密） 更多帖子 关注私信空间博客 mfkiqpl 等级 本版专家分：22: 感谢楼上的帮忙。。。

2005-05-15 22:34:45

点赞只看TA 引用举报 #6得分 0

⋅aspnet_merge.exe已退出，代码为1。莫名其妙的问题，进来看下~有图有真相 ⋅DataGridView滚动条拉到最下面后，最后一条下面总是有间隙，怎么去掉？ ⋅求个加密算法（新浪微博的地址加密） 更多帖子 关注私信空间博客 mfkiqpl 等级 本版专家分：22: 问题还没有得到解决。。希望大家能再帮小弟一下。。感谢。。

2005-05-15 22:37:19

点赞只看TA 引用举报 #7得分 0

⋅系统问题???环境变量?? ⋅制作安装软件 ⋅方法可以返回多个值吗？ 更多帖子 关注私信空间博客 phlac 等级 本版专家分：663: 第二个问题
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
     Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
     Private Const SC_SIZE = &HF000
     Private Const MF_BYCOMMAND = &H0&

    Private Sub Form_Load()
     Dim hMenu As Long, Success As Long

     hMenu = GetSystemMenu(Form1.hwnd, 0)
     Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
    End Sub

2005-05-15 22:50:32

点赞只看TA 引用举报 #8得分 10

⋅Winodws 2003 server UDP通信问题，救命啊！！！！！！！！！！ ⋅SimpleXMLElement用不了是什么原因？ ⋅有关Win7 & IE9的视频显示问题 更多帖子 关注私信空间博客 tmran 等级 本版专家分：2544: 1、第一问：用定时器（Timer），否则数据多了，你的软件将处于不可控状态。

Option Explicit
Private iLimt As Long
Private strTemp As String
Private Sub Command1_Click()
    Timer1.Interval = 200
    Timer1.Enabled = True
    strTemp = Text1.Text
    iLimt = 1
End Sub

Private Sub Timer1_Timer()

    strTemp = strTemp & vbCrLf & iLimt
    iLimt = iLimt + 1
    Text1.Text = strTemp
    If iLimt > 100 Then
        Timer1.Interval = 0
        Timer1.Enabled = False
    End If
End Sub

2、第二问，设置属性：

Form属性：

    BorderStyle = 1
    MinButton = True

2005-05-15 23:23:58

点赞只看TA 引用举报 #9得分 10

收起

收藏回复

mfkiqpl

等级：

关注私信 TA的帖子

SharePoint 入门级介绍: 前言：接触SharePoint两年有余，从一开始的小白，变成现在的菜鸟，一路走来，学到很多，现在，想把自己知道的东西，写给大家，尤其是刚刚接触SharePoint的人们，做一个简单的参考。从一开始接触，就知道SharePoint是...

最经典的PS入门笔记，来自李涛老师的高手之路: 总有人问阿随君怎么学PS，零基础、非专业、小白该怎么从零到入门，迅速成长为高手呢？在阿随君的答案中，有很多高频关键词反复亮相，而这其中李涛老师是我每次都强势安利的。我知道，可能小伙伴们还是会有些...

怎样成为解决问题的高手？——关于问题解决的关键4步骤: 一个真正的高手，其实应该有能力用一套方法论去解决问题的所有，不管这个问题再难，再新鲜，再简单都能搞定。什么是问题？一言以蔽之，问题来源于现实与目标的差距。因此，问题产生的原因可能是： ...

sql 存储过程 入门级 练习: sql 存储过程 入门级

一个不错的shell 脚本教程 入门级（转自脚本之家）: 一个很不错的bash脚本编写教程，至少没接触过BASH的也能看懂建立一个脚本 Linux中有好多中不同的shell，但是通常我们使用bash (bourne again shell) 进行shell编程，因为bash是免费的并且很容易使用。所以在本文中...

从音箱入门到高手必看知识: 音箱作为声频的终端器材，仿佛人的嗓门，在很大程度上决定了一套音响的好坏。可以毫不夸张地说：选择一对好的音箱是一套音响成功的关键所在，来不得半点马虎。然而纵观当今音响市场，成品音箱品牌不下数百种，其中...

微信小程序实时音视频功能简析(live-pusher与live-player): 开发者可以通过两个音视频组件和实现实时地在线直播、视频通话、语音通话等功能。上述功能需要用到两个小程序媒体组件中的两个： live-pusher 与 live-player 。下文简单介绍两这个组件的基础知识。仅可以带你...

如何才能成为年薪百万的编程高手？: 以前写过一篇文章《有哪些让程序员受益终生的建议》，讲过要成为一个编程高手，最好同时具备外部名气和内部实力。外部名气就是，表面上看起来像个高手。最好是，别人一提到你的名字就这个表情: 虽然外部名气...

从音箱入门到高手必看知识（三）—— 初学者听音指南: 人的听觉生理告诉我们，随着年龄的增长，耳膜和内耳听辨毛都会变硬，无法响应很高的频率。只有低龄儿童听觉器官的尺寸小，质地柔软，可以听到２０ｋｈｚ以上的超声。而２０岁以后就逐渐衰退了，５０岁以上的人已难...

最简单的spring入门示例: 应群里一位朋友的要求，写一个最简单的spring示例，使用spring的MVC，并应用了spring的依赖注入，实现简单应用，索性放在这里供还没入门的spring爱好者参考，初步感受一下spring应用(spring高手就不必看了，这里并...

消息队列，入门轻松，进阶不易: 我一直不认为自己是什么优秀的编程者，甚至如果按照现在的标准，去应聘巨头的普通开发岗位，我也是很难获得入职资格的。但在早期互联网时代，我还是有一点优势，就是遇到问题的时候，...

VB.NET 基础入门: VB.NET 基础入门之前对VB 和C#语言有相应的了解，特别是VB，进行了很长一段时间的的深入的学习，现在开始VB.NET 基础学习，学习进度不快，很多的东西要虚心向身边的高手学习、交流。VB.NET开始有一段...

zigbee入门级文章: 　本人做过几年单片机的开发工作，主要用的是8051内核的和瑞萨740系列的，在这个ARM大行其道的时代，也曾经试着接触过，不过很容易在复杂的内核中迷失了自己~~~一直对这种能全局掌控的小系统痴迷，一个国外朋友无意...

快速入门编程，可以试试这个方法！: 总括：第一入门：选定一部不错的教学视频，最好涵盖的知识点非常全面。第二进阶：选一本适合入门的书籍。...分别叙述：第一：入门阶段在刚开始接触一门新的知识的时候，我是建议以视频起手的，咨询过很多自学

linux从入门到高手的学习书籍整理: 熟练使用命令、熟悉Shell编程、能配置简单的服务，清楚各类服务相关的配置文件的位置，能看懂并可修改系统提供的配置脚本（/etc/*.*）《鸟哥的私房菜基础篇、高级篇》《Advanced Bash Shell》 2、中级...

从音箱入门到高手必看知识（一）—— 音箱初级知识: 音箱作为声频的终端器材，仿佛人的嗓门，在很大程度上决定了一套音响的好坏。可以毫不夸张地说：选择一对好的音箱是一套音响成功的关键所在，来不得半点马虎。然而纵观当今音响市场，成品音箱品牌不下数百种，其中...

简单的Spring入门例子: 应一位朋友的要求，写一个最简单的spring示例，使用spring的MVC，并应用了spring的依赖注入，实现简单应用，索性放在这里供还没入门的spring爱好者参考，初步感受一下spring应用(spring高手就不必看了，这里并没有...

黑客入门完整版教程: 第一篇完整性质的黑客教程。

GRUB简单入门教程: GRUB简单入门教程一、什么是多重操作系统引导管理器，什么是GRUB； 1、什么是多重操作系统引导管理器及工作原理；系统启动引导管理器，是在计算机启动后运行的第一个程序，他是用来负责加载、传输控制到...

Google搜索从入门到精通V3.6: 内容1，前言2，摘要3，如何使用本文4，Google简介5，搜索入门6，初阶搜索6.1，搜索结果要求包含两个及两个以上关键字6.2，搜索结果要求不包含某些特定信息6.3，搜索结果至少包含多个关键字中的任意一个7，杂项语法...

Android数据库高手秘籍(二)——创建表和LitePal的基本用法: 操作数据库的第一步当然是创建表了，传统创建表的方法相信大多数人都知道，那么今天我除了会展示传统的建表方法之外，还会讲解LitePal这个框架的基本用法，并使用它来完成同样的建表操作，让大家体会到使用框架来...

从入门到成为前端高手（下篇）—— Jonathan: 版权申明：此文章首发于公众号程序员在深圳，搜索 studycode 即可关注 ...在第二部分，我们会把JavaScript作为独立的语言来学习，我们将学习如何添加交互式的界面，JavaScript设计以及设计模式，最后我们会

小程序与云开发实战 36 讲: 课程介绍小程序依托微信超过 10 亿的海量用户，它无需安装即可使用的完美用户体验，...入门部分：这部分内容结合着小实例来讲解小程序的开发环境搭建以及开发的基本步骤，然后介绍了小程序中常用的布局，如水平排列...

小白入坑 Web 渗透测试必备指南: 小白如何快速入门由于本人技术性受限制，可能部分内容显得不那么清晰，如有疑问请读者圈联系我。再者，内容不会完全讲清楚，因为本身话题的原因，部分会一笔带过。小白该如何踏入 Web 安全这个坑呢？我的...

关于做Kaggle比赛入门，看完这篇就够了: Kaggle 是一个数据科学竞赛的平台，很多公司会发布一些接近真实业务的问题，吸引爱好数据科学的人来一起解决。https://www.kaggle.com/ 点击导航栏的 competitions 可以看到有很多比赛，其中正式比赛，一般会有奖金...

分库分表学习总结（1）——数据库中间件MyCat学习总结之MyCat入门简介: MyCat的目标就是：低成本地将现有的单机数据库和应用平滑迁移到“云”端，解决数据存储和业务规模迅速增长情况下的数据瓶颈问题。2014年MyCat首次在上海的《中华架构师》大会上对外宣讲引发围观，更多的人参与进来，...

iOS入门级书籍《Object-C开发范例代码大全》: 《Object-C开发范例代码大全》书籍作者 MatthewCampbell，译者景丽，这两个人在iOS这个圈基本上没有太多名气，从书名上来说有点效仿《代码大全》的味道，但是实际内容要差的很多，主要还在与理论层次不够深，作者...

深度学习：卷积神经网络从入门到精通: 全面介绍各种卷积神经网络的模型、算法及应用，指导读者把握其形成和演变的基本脉络，以帮助读者在较短的时间内从入门达到精通的水平。有兴趣的读者可以从本书开始，通过图像分类、识别、检测和分割的案例，逐步深入...

029_《编程高手箴言》: ” 梁肇新《编程高手箴言》这本书就是梁肇新自己十余年来编程经验的集结。在名人出书成为热潮的这几年中，拥有丰富经历和感悟的梁肇新却没有跟风，这本《箴言》是他的第一本著作，可谓厚积薄发。全书通篇没有时髦的...

相关热词 c# directx 关闭进程时执行c# c#工业应用 c#状态栏控件 c#窗体调颜色 c# 设置listbox c#窗口实现好友列表 c# orm 框架哪个好 c# 字符串转变量名 c# float 赋值