关于文字移动的问题

追求者2 2005-04-14 04:42:11
我从外面文件中读入一篇文档,存放在label控件中，想用timer控件控制文本的移动，但是在移动过程中文字看上去会很抖，有没有办法解决这个问题啊
...全文
242 23 打赏 收藏 转发到动态 举报
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
追求者2 2005-05-13
  • 打赏
  • 举报
 回复
为什么不行啊
江海门户 2005-05-13
  • 打赏
  • 举报
 回复
你索性到vb sp6中的api viwer中查找"drawtext",上面有示例代码,看看就会了
追求者2 2005-04-30
  • 打赏
  • 举报
 回复
顶
fujihua2001 2005-04-23
  • 打赏
  • 举报
 回复
先把内容输出到PICTUREBOX控件上,然后用BITBLT将图片拷贝到窗体上,不光是移动,就连PPT一样各种演示方式都可以实现,绝对不会有闪烁现象
shortppsy 2005-04-22
  • 打赏
  • 举报
 回复
把label放在frame上，不会抖动
江海门户 2005-04-22
  • 打赏
  • 举报
 回复
DT_CENTER ,DT_WORDBREAKDT_SINGLELINE等参数有没有设置?这些参数不是写了就行的,要设置他们的值
追求者2 2005-04-22
  • 打赏
  • 举报
 回复
好像移动不了啊
江海门户 2005-04-22
  • 打赏
  • 举报
 回复
你是指什么方面不行?有闪动还是移动不了还是别的什么?
追求者2 2005-04-22
  • 打赏
  • 举报
 回复
kikikaki(江海门户通天下)

我根据你的方法试了，好像不行啊
viena 2005-04-21
  • 打赏
  • 举报
 回复
其中的参数RECT是自定义类型
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
追求者2 2005-04-21
  • 打赏
  • 举报
 回复
Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

为什么我定义这个API的时候说“用户定义类型未定义”啊提示出错
江海门户 2005-04-15
  • 打赏
  • 举报
 回复
上面的用drawtext的程序就是纯api的绘图,速度比较快,移动label是用在小范围,小面积的区域内移动文字的,这样才能保证不闪,大了一定会闪
金蝶高级实施顾问 2005-04-15
  • 打赏
  • 举报
 回复
用TEXT就可以实现啊
homezj 2005-04-14
  • 打赏
  • 举报
 回复
AUTOREDRAW设置为TRUE，将建立一个后台DC，所有擦除绘制内容在后台先进行，用户看不到，窗体收到WM_PAINT消息时会自动把后台内容更新到前台，这时用户看到的文本在屏幕上只是变了个样或移了个位，并没有擦除时的那一“隐”！所以动画是连续而稳定，就不会有闪烁了。

高速绘图应该采用局部擦除内容，可另建一个背景位图，用于局部擦除，这样绘图速度才会很快。当然，还有一种简单方法，是用窗体保存背景，所有内容在前面放个PictureBox中绘制，需擦除一块时，将窗体对应部分绘入PictureBox，就可完成局部擦除功能。

要做稳定的动画，根本不能用任何轻控件，而且最好采用纯API绘图（就是没有任何VB的图形方法输出），因为API绘图，不会触发PAINT事件，这样可在程序需要时才利用Refresh方法更新前台。

VB的Refresh方法有点慢，若对速度要求高的话，还可自己编个Refresh函数。
hptvschen 2005-04-14
  • 打赏
  • 举报
 回复
timer2.timerval=20
dim slen as string '要移动的文字
Me.Picture1.Picture 和me.pic2.picture相同
dim outrec as rect
With outRect
.Bottom = 60
.Top = 10
.Left = 760
.Right = 760
End With

Private Sub Timer2_Timer()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
'slen = Len(Lstr) * Pic1.FontSize * 2
slen = LenB(StrConv(Lstr, vbFromUnicode)) * Pic1.FontSize
If outRect.Right - outRect.Left < slen Then

Me.Pic2.ForeColor = &H400000
Me.Pic2.PaintPicture Me.Picture1.Picture, 0, 0, Me.Pic2.Width, Me.Pic2.Height, 0, 0, Me.Pic2.Width, Me.Pic2.Height
sHdc = Me.Pic2.hdc
DrawText sHdc, Lstr, -1, outRect, DT_LEFT
outRect.Left = outRect.Left - 2
Me.Pic2.Refresh
Else
With outRect
.Bottom = 60
.Top = 10
.Left = 760
.Right = 760
End With
End If
'------------------------------------------------

Exit Sub
MmMVP 2005-04-14
  • 打赏
  • 举报
 回复
有办法：
把文字放label里，把label放picturebox里，让label在picturebox里动

这个问题以前是关于statuebar的，在这里一样用。记得是kikikaki大哥提出的。
dyshadow 2005-04-14
  • 打赏
  • 举报
 回复
如果简单的，用

打印在窗体上后CLS，之后再打印。

窗体的AUTOREDRAW设置为TRUE可以“稍稍”解决这个问题。

如果要求高，自己做个MEMDC吧。（API，又是API）
viena 2005-04-14
  • 打赏
  • 举报
 回复
//直接打印在窗体上不用LABEL
关键是怎么擦去已经打印的内容呢？，如果整个重画，肯定还是会闪动的
homezj 2005-04-14
  • 打赏
  • 举报
 回复
肯定会闪烁，因为你用错了办法！

Label没有自己的DC，它象个寄生虫，依附于容器的DC，当其内容或位置发生变动时，它就会向容器发送WM_PAINT消息，容器就会先把其原内容用背景擦除（这时Label就不见了），再在新位置绘制新内容（这时Label就又看见了）。

就是这样一隐一现，产生闪烁！

不仅如此，当容器需擦除背景重绘自己时，也会让Label产生闪烁。
江海门户 2005-04-14
  • 打赏
  • 举报
 回复
不要用label移动,用drawtext函数

Private Sub RunMain(picScroll As PictureBox) 其中scrolltext为要滚动的文字
' 滚动字幕
Dim LastFrameTime As Long
Const IntervalTime As Long = 40
Dim rt As Long
Dim DrawingRect As RECT
Dim UpperX As Long, UpperY As Long 'Upper left point of drawing rect
Dim RectHeight As Long
Form1.Refresh
rt = DrawText(picScroll.hdc, ScrollText, -1, DrawingRect, DT_CALCRECT)
If rt = 0 Then 'err
MsgBox "Error scrolling text", vbExclamation
EndingFlag = True
Else
DrawingRect.Top = picScroll.ScaleHeight
DrawingRect.Left = 0
DrawingRect.Right = picScroll.ScaleWidth
RectHeight = DrawingRect.Bottom
DrawingRect.Bottom = DrawingRect.Bottom + picScroll.ScaleHeight
End If
Do While Not EndingFlag
If GetTickCount() - LastFrameTime > IntervalTime Then
picScroll.Cls
DrawText picScroll.hdc, ScrollText, -1, DrawingRect, DT_CENTER 'Or DT_WORDBREAKDT_SINGLELINE And
DrawingRect.Top = DrawingRect.Top - 1
DrawingRect.Bottom = DrawingRect.Bottom - 1
If DrawingRect.Top < -(RectHeight) Then 'time to reset
DrawingRect.Top = picScroll.ScaleHeight
DrawingRect.Bottom = RectHeight + picScroll.ScaleHeight
End If
picScroll.Refresh
LastFrameTime = GetTickCount()
End If
DoEvents
Loop
End Sub

Private Sub Timer3_Timer()
Dim hei As Integer
tiAo = False
Form1.Height = Form1.Height - 50
hei = ScaleY(Form1.Height, vbTwips, vbPixels) - Picture4.Height ', vbTwips, vbPixels)
Picture4.Top = hei - 2 ' Picture4.Top + 1
If Form1.Height < 2745 Then
Timer3.Enabled = False
Label4.Enabled = True
cmdT.Enabled = True
End If

End Sub
加载更多回复（3）
Google Android SDK开发范例大全(PDF高清完整版3)（4-3）
Google Android SDK开发范例大全(完整版)共4个分卷 目录 第1章 了解.深入.动手做. 1.1 红透半边天的Android 1.2 本书目的及涵盖范例范围 1.3 如何阅读本书 1.4 使用本书范例 1.5 参考网站 第2章 Android初体验 2.1 安装AndroidSDK与ADTplug-in 2.2 建立第一个Android项目(HelloAndroid！) 2.3 Android应用程序架构——从此开始 2.4 可视化的界面开发工具 2.5 部署应用程序到Android手机 第3章 用户人机界面 3.1 更改与显示文字标签——TextView标签的使用 3.2 更改手机窗口画面底色——drawable定义颜色常数的方法 3.3 更改TextView文字颜色——引用Drawable颜色常数及背景色 3.4 置换TextView文字——CharSequence数据类型与ResourceID应用 3.5 取得手机屏幕大小——DisplayMetrics取得画面宽高的方法 3.6 样式化的定型对象——Style样式的定义 3.7 简易的按钮事件——Button事件处理 3.8 手机页面的转换——setContentView的应用 3.9 调用另一个Activity——Intent对象的使用 3.10 不同Activity之间的数据传递——Bundle对象的实现 3.11 返回数据到前一个Activity——startActivityForResult方法 3.12 具有交互功能的对话框——AlertDialog窗口 3.13 置换文字颜色的机关——Button与TextView的交互 3.14 控制不同的文字字体——Typeface对象使用 3.15 如iPhone拖动相片特效——Gallery画廊 3.16 自制计算器——多按钮的整合应用 3.17 关于(About)程序信息——Menu功能菜单程序设计 3.18 程序加载中,请稍后——ProgressDialog与线程整合应用 3.19 全屏幕以按钮覆盖——动态产生按钮并最大化 3.20 今晚到哪儿打牙祭？——具选择功能的对话框 3.21 Android变脸——主题(Theme)实现 第4章 史上超豪华的手机控件 4.1 EditText与TextView共舞——setOnKeyListener事件 4.2 设计具有背景图的按钮——ImageButton的焦点及事件处理 4.3 给耶诞老人的信息——Toast对象的使用 4.4 我同意条款——CheckBox的isChecked属性 4.5 消费券采购列表——多选项CheckBox的应用 4.6 向左或向右——RadioGroup组与onCheckedChanged事件 4.7 专业相框设计——ImageView的堆栈应用 4.8 自定义下拉菜单模式——Spinner与setDropDownViewResource 4.9 动态添加/删除的Spinner菜单——ArrayList与Widget的依赖性 4.10 心爱小宝贝相片集——Gallery与衍生BaseAdapter容器 4.11 快速的搜索手机文件引擎——JavaI/O的应用 4.12 按钮也能随点击变换——ImageButton选择特效 4.13 具自动提示功能的菜单——AutoCompleteTextView与数组 4.14 数字及模拟小时钟设计——AnalogClock与DigitalClock的原理 4.15 动态输入日期与时间——DatePicker与TimePicker应用 4.16 猜猜红心A在那儿——ImageView点击事件与透明度处理 4.17 后台程序运行进度提示——ProgressBar与Handler的整合应用 4.18 动态文字排版——GridView与ArrayAdapter设计 4.19 在Activity里显示列表列表——ListView的布局 4.20 以动态列表配置选项——ListActivity与Menu整合技巧 4.21 查找程序根目录下所有文件——JavaI/O与ListActivity的结合.. 4.22 加载手机磁盘里的图文件——使用decodeFile方法 4.23 动态放大缩小ImageView里的图片——运用Matrix对象来缩放图文件 4.24 动态旋转图片——Bitmap与Matrix旋转ImageView 4.25 猜猜我在想什么——RadioButtonID 4.26 离开与关闭程序的弹出窗口——对话窗口上的ICON图标 第5章 交互式通信服务与手机控制 5.1 具有正则表达式的TextView——Linkify规则 5.2 ACTION！CALL！拨打电话——Intent
Google Android SDK开发范例大全(PDF完整版4)（4-4）
Google Android SDK开发范例大全(完整版)共4个分卷 目录 第1章 了解.深入.动手做. 1.1 红透半边天的Android 1.2 本书目的及涵盖范例范围 1.3 如何阅读本书 1.4 使用本书范例 1.5 参考网站 第2章 Android初体验 2.1 安装AndroidSDK与ADTplug-in 2.2 建立第一个Android项目(HelloAndroid！) 2.3 Android应用程序架构——从此开始 2.4 可视化的界面开发工具 2.5 部署应用程序到Android手机 第3章 用户人机界面 3.1 更改与显示文字标签——TextView标签的使用 3.2 更改手机窗口画面底色——drawable定义颜色常数的方法 3.3 更改TextView文字颜色——引用Drawable颜色常数及背景色 3.4 置换TextView文字——CharSequence数据类型与ResourceID应用 3.5 取得手机屏幕大小——DisplayMetrics取得画面宽高的方法 3.6 样式化的定型对象——Style样式的定义 3.7 简易的按钮事件——Button事件处理 3.8 手机页面的转换——setContentView的应用 3.9 调用另一个Activity——Intent对象的使用 3.10 不同Activity之间的数据传递——Bundle对象的实现 3.11 返回数据到前一个Activity——startActivityForResult方法 3.12 具有交互功能的对话框——AlertDialog窗口 3.13 置换文字颜色的机关——Button与TextView的交互 3.14 控制不同的文字字体——Typeface对象使用 3.15 如iPhone拖动相片特效——Gallery画廊 3.16 自制计算器——多按钮的整合应用 3.17 关于(About)程序信息——Menu功能菜单程序设计 3.18 程序加载中,请稍后——ProgressDialog与线程整合应用 3.19 全屏幕以按钮覆盖——动态产生按钮并最大化 3.20 今晚到哪儿打牙祭？——具选择功能的对话框 3.21 Android变脸——主题(Theme)实现 第4章 史上超豪华的手机控件 4.1 EditText与TextView共舞——setOnKeyListener事件 4.2 设计具有背景图的按钮——ImageButton的焦点及事件处理 4.3 给耶诞老人的信息——Toast对象的使用 4.4 我同意条款——CheckBox的isChecked属性 4.5 消费券采购列表——多选项CheckBox的应用 4.6 向左或向右——RadioGroup组与onCheckedChanged事件 4.7 专业相框设计——ImageView的堆栈应用 4.8 自定义下拉菜单模式——Spinner与setDropDownViewResource 4.9 动态添加/删除的Spinner菜单——ArrayList与Widget的依赖性 4.10 心爱小宝贝相片集——Gallery与衍生BaseAdapter容器 4.11 快速的搜索手机文件引擎——JavaI/O的应用 4.12 按钮也能随点击变换——ImageButton选择特效 4.13 具自动提示功能的菜单——AutoCompleteTextView与数组 4.14 数字及模拟小时钟设计——AnalogClock与DigitalClock的原理 4.15 动态输入日期与时间——DatePicker与TimePicker应用 4.16 猜猜红心A在那儿——ImageView点击事件与透明度处理 4.17 后台程序运行进度提示——ProgressBar与Handler的整合应用 4.18 动态文字排版——GridView与ArrayAdapter设计 4.19 在Activity里显示列表列表——ListView的布局 4.20 以动态列表配置选项——ListActivity与Menu整合技巧 4.21 查找程序根目录下所有文件——JavaI/O与ListActivity的结合.. 4.22 加载手机磁盘里的图文件——使用decodeFile方法 4.23 动态放大缩小ImageView里的图片——运用Matrix对象来缩放图文件 4.24 动态旋转图片——Bitmap与Matrix旋转ImageView 4.25 猜猜我在想什么——RadioButtonID 4.26 离开与关闭程序的弹出窗口——对话窗口上的ICON图标 第5章 交互式通信服务与手机控制 5.1 具有正则表达式的TextView——Linkify规则 5.2 ACTION！CALL！拨打电话——Intent.ACTION.CALL的使用 5.3 自制发送短信程序——SmsManager与PendingIntent对象 5.4 自制发送Email程序——Intent在Email上的使用 5.5 自制日历手机数据库——实现SQLiteOpenHelper 5.6 手机震动的节奏——Vibrator对象及周期运用 5.7 图文可视化提醒——Toast与LinearLayoutView 5.8 状态栏的图标与文字提醒——NotificationManager与Notification对象的应用 5.9 搜索手机通讯录自动完成——使用ContentResolver 5.10 取得联系人资料——Provider.Contact的使用 5.11 制作有图标的文件资源管理器——自定义Adapter对象 5.12 还原手机默认桌面——重写clearWallpaper方法 5.13 置换手机背景图——Gallery与setWallpaper整合实现 5.14 撷取手机现存桌面——getWallpaper与setImageDrawable 5.15 文件资源管理器再进化——JavaI/O修改文件名及删除 5.16 取得目前File与Cache的路径——getCacheDir与getFilesDir 5.17 打开/关闭WiFi服务——WifiManager状态判断 5.18 取得SIM卡内的信息——TelephonyManager的应用 5.19 调用拨号按钮——打电话CALL_BUTTON 5.20 DPAD按键处理——onKeyDown事件与Layout坐标交互 5.21 任务管理器正在运行的程序——RunningTaskInfo 5.22 动态更改屏幕方向——LANDSCAPE与PORTRAIT 5.23 系统设置更改事件——onConfigurationChanged信息处理 5.24 取得电信网络与手机相关信息——TelephonyManager与android.provider.Settings.System的应用 第6章 手机自动服务纪实 6.1 您有一条短信popup提醒——常驻BroadcastReceiver的应用 6.2 手机电池计量还剩多少——使用BroadcastReceiver捕捉Intent.ACTION_BATTERY_CHANGED 6.3 群发拜年短信给联系人——ACTION_PICK与Uri对象 6.4 开始与停止系统服务——Service与Runnable整合并用 6.5 通过短信发送email通知——BroadcastReceiver与Intent整合 6.6 手机拨接状态——PhoneStateListener之onCallStateChanged 6.7 有来电,发送邮件通知——PhoneStateListener与ACTION_SEND 6.8 存储卡剩余多少容量——Environment加StatFs 6.9 访问本机内存与存储卡——File的创建与删除 6.10 实现可定时响起的闹钟——PendingIntent与AlarmManager的运用 6.11 黑名单来电自动静音——PhoneStateListener与AudioManager 6.12 手机翻背面即静音震动——SensorListener及AudioManager整合应用 6.13 指定时间置换桌面背景——多AlarmManager事件处理 6.14 判断发送短信后的状态——BroadcastReceiver聆听PendingIntent 6.15 后台服务送出广播信息——sendBroadcast与BroadcastReceiver 6.16 开机程序设计——receiver与intent-filter协同作业 6.17 双向短信常驻服务——Service与receiver实例 第7章 娱乐多媒体 7.1 访问Drawable资源的宽高——ContextMenu与Bitmap的应用 7.2 绘制几何图形——使用android.graphics类 7.3 手机屏幕保护程序——FadeIn/FadeOut特效与运行线程 7.4 用手指移动画面里的照片——onTouchEvent事件判断 7.5 加载存储卡的Gallery相簿——FileArrayList 7.6 取得手机内置媒体里的图文件——ACTION_GET_CONTENT取回InputStream 7.7 相片导航向导与设置背景桌面——ImageSwitcher与Gallery 7.8 调整音量大小声——AudioManager控制音量 7.9 播放mp3资源文件——raw文件夹与MediaPlayer的使用 7.10 播放存储卡里的mp3音乐——MediaPlayer.setDataSource 7.11 自制录音/播放录音程序——MediaRecorder与AudioEncoder 7.12 通过收到短信开始秘密录音——MediaRecorder与BroadcastReceiver实例 7.13 内置影片播放器载入3gp电影——VideoViewWidget 7.14 自制3gp影片播放器——MediaPlayer与实现SurfaceView 7.15 相机预览及拍照临时文件——Camera及PictureCallback事件 第8章 当Android与Internet接轨 8.1 HTTPGET/POST传递参数——HTTP连接示范 8.2 在程序里浏览网页——WebView.loadUrl 8.3 嵌入HTML标记的程序——WebView.loadData 8.4 设计前往打开网页功能——Intent与Uri.parse 8.5 将网络图像网址放入Gallery中显示——URL.URLConnection.BaseAdapter 8.6 即时访问网络图文件展示——HttpURLConnection 8.7 手机气象局,实时卫星云图——HttpURLConnection与URLConnection和运行线程 8.8 通过网络播放MP3——Runnable存储FileOutputStream技巧 8.9 设置远程下载音乐为手机铃声——RingtoneManager与铃声存放路径 8.10 远程下载桌面背景图案——URLConnection与setWallpaper()搭配 8.11 将手机文件上传至网站服务器——模拟HTTPFORM的POSTACTION 8.12 移动博客发布器——以XML-RPC达成远程过程调用 8.13 移动RSS阅读器——利用SAXParser解析XML 8.14 远程下载安装Android程序——APKInstaller的应用 8.15 手机下载看3gp影片——Runnable混搭SurfaceView 8.16 访问网站LoginAPI——远程服务器验证程序运行权限 8.17 地震速报！——HttpURLConnection与Service侦测服务 第9章 Google服务与Android混搭 9.1 Google帐号验证Token——AuthSub 9.2 Google搜索——AutoCompleteTextView与GoogleSearchAPI 9.3 前端产生QRCode二维条形码——GoogleChartAPI 9.4 以经纬度查找目的地位置——GeoPoint与MapView的搭配运用 9.5 GPSGoogle地图——LocationListener与MapView实时更新 9.6 移动版GoogleMap——Geocoder反查Address对象 9.7 规划导航路径——DirectionsRoute 9.8 移动设备上的Picasa相册——GooglePicasaAPI 9.9 随身翻译机——GoogleTranslateAPI 第10章 创意Android程序设计 10.1 手机手电筒——PowerManager控制WakeLock并改变手机亮度 10.2 GPS轨迹记录器——利用LocationListener在地图上画图并换算距离 10.3 女性贴身看护——AlarmManager.DatePicker.TimePicker 10.4 手机QRCode二维条形码生成器——Canvas与SurfaceHolder绘图 10.5 AndroidQRCode二维条形码扫描仪——BitmapFactory.decodeByteArray 10.6 上班族今天中午要吃什么——热量骰子地图 10.7 掷杯筊——把手机放在空中甩事件处理...
html怎么移动文字的位置,css怎么移动文字
css实现移动文字的方法：1、在块元素容器中，可以用“text-align：center、left、right”来移动文字的位置；2、使用float和padding属性；3、通过position定位实现文字移动。本教程操作环境：windows7系统、css3版本、Dell G3电脑。推荐：css视频教程css移动文字首先可以用个容器来包住文字，给宽和高。然后，可以使用多种方法来移动文字：1、如果是...
html文字向上移动10px,HTML文字移动特效代码
HTML文字移动特效代码一、从右向左移代码需要移动的文字二、从左向右移代码需要移动的文字三、一圈一圈绕着移动代码需要移动的文字四、只移动三次就停了代码需要移动的文字五、移一步，停一停代码需要移动的文字六、左右来回移动代码需要移动的文字七、忽隐忽现移动代码需要移动的文字八、从下向上移动代码需要移动的文字九 、从上向下移动代码需要移动的文字十、垂直往复移动代码需要移动的文字十一、从左上向右下移动代码需...
解决WORD中图片随文字移动问题
在WORD中插入或者粘贴进图片后，发现编辑图片上下行文字时，图片会随文字移动。可以看到文字环绕形式为“上下环绕”，且选中了随文字移动选项。
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章