WM QQ群

CForce 2007-09-05 12:16:55

2514097

...全文

82 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

bao2lei 2007-09-05

打赏
举报

回复

加不进啊

WMSP2008版绿色QQ带群功能。需要的的下载吧，现在SP软件是越来越少了。

----------------------- 'False_VB教程：VB制作带撤销功能的记事本 QQ:5333784 '应网友要求，今天给大家带来一个用VB做带有撤销功能的记事本 'VB写记事本网上已经有很多教程了 '但是却很少有撤销功能的 '今天我就给大家做一个 '我们开始吧 '编辑菜单 '好了， '下面我们添加一个模块 '代码我已经测试好了 '也会给大家打包的 '下面来写入代码 '好了，这些是记事本最基本的应用 '希望大家可以写出一个属于自己的更多功能的记事本 '今天的教程就到这里了 '我们下次见 '以下是代码： '----------------------------------华丽的分割线------------------------------------------------- Dim sFind As String'生命查找变量 Dim FileType, FiType As String '----------------------------------华丽的分割线------------------------------------------------- Public Property Get UndoType() As ERECUndoTypeConstants UndoType = SendMessageLong(rtfText.hwnd, EM_GETUNDONAME, 0, 0) End Property Public Property Get RedoType() As ERECUndoTypeConstants RedoType = SendMessageLong(rtfText.hwnd, EM_GETREDONAME, 0, 0) End Property Public Property Get CanPaste() As Boolean CanPaste = SendMessageLong(rtfText.hwnd, EM_CANPASTE, 0, 0) End Property Public Property Get CanCopy() As Boolean If rtfText.SelLength > 0 Then CanCopy = True End If End Property Public Property Get CanUndo() As Boolean CanUndo = SendMessageLong(rtfText.hwnd, EM_CANUNDO, 0, 0) End Property Public Property Get CanRedo() As Boolean CanRedo = SendMessageLong(rtfText.hwnd, EM_CANREDO, 0, 0) End Property '----------------------------------华丽的分割线------------------------------------------------- Private Sub Form_Load()'窗体加载时 Dim lStyle As Long lStyle = TM_RICHTEXT Or TM_MULTILEVELUNDO Or TM_MULTICODEPAGE SendMessageLong rtfText.hwnd, EM_SETTEXTMODE, lStyle, 0 End Sub '----------------------------------华丽的分割线------------------------------------------------- Private Function TranslateUndoType(ByVal eType As ERECUndoTypeConstants) As String Select Case eType Case ercUID_UNKNOWN TranslateUndoType = "Last Action" Case ercUID_TYPING TranslateUndoType = "Typing" Case ercUID_PASTE TranslateUndoType = "Paste" Case ercUID_DRAGDROP TranslateUndoType = "Drag Drop" Case ercUID_DELETE TranslateUndoType = "Delete" Case ercUID_CUT TranslateUndoType = "Cut" End Select End Function '----------------------------------华丽的分割线------------------------------------------------- '----------------------------------多了个华丽的分割线------------------------------------------- '新建文件 rtfText.Text = "" '清空文本框 FileName = "未命名" Me.Caption = FileName '----------------------------------华丽的分割线------------------------------------------------- '打开文件 CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowOpen rtfText.Text = "" '清空文本框 FileName = CommonDialog1.FileName rtfText.LoadFile FileName Me.Caption = "个人专用记事本：" & FileName '----------------------------------华丽的分割线------------------------------------------------- '保存文件 Open App.Path & "\False_VB教程.txt" For Append As #1 Print #1, rtfText.Text Close #1 '----------------------------------华丽的分割线------------------------------------------------- '另保存文件 CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3)) FileName = CommonDialog1.FileName Select Case FiType Case "txt" rtfText.SaveFile FileName, rtfText Case "rtf" rtfText.SaveFile FileName, rtfRTF Case "*.*" rtfText.SaveFile FileName End Select Me.Caption = "个人专用记事本：" & FileName '----------------------------------华丽的分割线------------------------------------------------- '撤销 SendMessageLong rtfText.hwnd, EM_UNDO, 0, 0 End Sub '----------------------------------华丽的分割线------------------------------------------------- '重做 SendMessageLong rtfText.hwnd, EM_REDO, 0, 0 '----------------------------------华丽的分割线------------------------------------------------- '复制 SendMessageLong rtfText.hwnd, WM_COPY, 0, 0 '----------------------------------华丽的分割线------------------------------------------------- '粘贴 SendMessageLong rtfText.hwnd, WM_PASTE, 0, 0 '----------------------------------华丽的分割线------------------------------------------------- '清除 rtfText.SelText = Empty '----------------------------------华丽的分割线------------------------------------------------- '剪切 SendMessageLong rtfText.hwnd, WM_CUT, 0, 0 '----------------------------------华丽的分割线------------------------------------------------- '全选 rtfText.SelStart = 0 rtfText.SelLength = Len(rtfText.Text) '----------------------------------华丽的分割线------------------------------------------------- '时间日期 rtfText.Text = rtfText.Text & " " & Now '----------------------------------华丽的分割线------------------------------------------------- '查找 sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind) rtfText.Find sFind '----------------------------------华丽的分割线------------------------------------------------- '继续查找 rtfText.SelStart = rtfText.SelStart + rtfText.SelLength + 1 rtfText.Find sFind, , Len(rtfText) '----------------------------------华丽的分割线------------------------------------------------- '关于 MsgBox "作者QQ：1302938783 QQ群：26891547 E-mail:falsevb@163.com 欢迎喜欢VB的朋友加入我的QQ群，大家一起讨论，请那些所谓的什么什么黑客要盗什么什么QQ的人自重，这个群只是喜欢VB的朋友一起交流和讨论，了解吗？", 64, "关于" '----------------------------------华丽的分割线------------------------------------------------- '防止在切换输入法时字体自变 Private Sub rtfText_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then rtfText.SelFontName = CommonDialog1.FontName End If End Sub '----------------------------------华丽的分割线------------------------------------------------- '模块 Public Enum ERECViewModes ercDefault = 0 ercWordWrap = 1 ercWYSIWYG = 2 End Enum '// Undo Types Public Enum ERECUndoTypeConstants ercUID_UNKNOWN = 0 ercUID_TYPING = 1 ercUID_DELETE = 2 ercUID_DRAGDROP = 3 ercUID_CUT = 4 ercUID_PASTE = 5 End Enum '// Text Modes Public Enum TextMode TM_PLAINTEXT = 1 TM_RICHTEXT = 2 ' /* default behavior */ TM_SINGLELEVELUNDO = 4 TM_MULTILEVELUNDO = 8 ' /* default behavior */ TM_SINGLECODEPAGE = 16 TM_MULTICODEPAGE = 32 ' /* default behavior */ End Enum Public Const WM_COPY = &H301 Public Const WM_CUT = &H300 Public Const WM_PASTE = &H302 Public Const WM_USER = &H400 Public Const EM_SETTEXTMODE = (WM_USER + 89) Public Const EM_UNDO = &HC7 Public Const EM_REDO = (WM_USER + 84) Public Const EM_CANPASTE = (WM_USER + 50) Public Const EM_CANUNDO = &HC6& Public Const EM_CANREDO = (WM_USER + 85) Public Const EM_GETUNDONAME = (WM_USER + 86) Public Const EM_GETREDONAME = (WM_USER + 87) Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long '----------------------------------结束华丽的分割线--------------------------------------------

为达到最佳效果，推荐使用九网互联的ASP.net空间，支持ASP.net版本1.1和2.0在线切换、在线脚本映射、ASP.net具体错误信息在线查看。功能很全asp.net图片水印组件源码2.0史上最牛的asp.net图片水印组件.详细介绍请看下面说明和实例;本人学习.net的时间也不长,才一年多,现写一个公开测试，有什么不好的地方请提出和我联系,QQ群:1640606;再将其优化升级等.//参数说明：asp.net 2.0 C#开发(2008-03-22)命名空间：using PanRoor实例化:PanRoorImageWaterMark wm = new PanRoorImageWaterMark();具体试用请根据本实例,由于效果处理试用了指针,请在web.config中加入下面项:本版本在原来的基础上进行优化升级。2008年3月22日更新如下：1.优化效果处理速度,增加了马赛克效果处理.2.优化了程序代码的执行效率.3.修改了上传时原图没有删除的情况4.修改了进行效果处理时删除原图提示正在试用的bug5.修改了原来效果图像单独存放,改为缩略图和水印图一起生效.6.修改了文字阴影模糊透明度单独配置.7.修改了占用内存大的情况.现在耗用系统资源很小.8.错误捕获以弹出框的形式.9.增加了一些相应的参数配置,使其更人性化而简单.10.修改了可以支持多种图片格式.11.增加了图片裁剪功能.12.修复了经广大网友测试时反映的多处bug等.13.修复了支持任意位置和角度的旋转一些细节.由于开发到现在,测试中可能还会遇到一些问题,暂时不考虑开源,请大家原谅,性能稳定了才会开源.欢迎广大网友测试试用,遇到什么问题和我联系,我会全力以赴的将其完善.本组件的配置参数还是比较全,.有时间我做个演示给大家,有我这些参数足够用了.配置任何一项都可以做到而且要比wsimage更灵活.参数说明:GetToWaterMarkImage(pictype, wmpicwidth, wmpicheight, mininfo, minwidth, minheight, effect, mosaic, mosX, mosY, mosWidth,mosHeight, imgcut, cutX, cutY, cutWidth, cutHeight)1.pictype:水印类型2.wmpicwidth：生成水印图片的宽3.wmpicheight:生成水印图片的高4.mininfo:bool类型，是否启用生成缩略图功能5.minwidth:缩略图的宽6.minheight:缩略图的高7.effect:设置效果处理方式8.mosaic:马赛克开关9.mosX:马赛克开始位置X10.mosY:马赛克开始位置Y11.mosWidth:马赛克范围宽12.mosHeight:马赛克范围高13.imgcut:图片裁剪开关14.cutX:裁剪的开始位置X15.cutY:裁剪的开始位置Y16.cutWidth:裁剪范围宽17.cutHeight:裁剪范围高Config_XML.aspx为水印配置页面uploadimages.aspx为上传图片页面该组件如需要用于商业用途请与作者联系作者：zhtvadvanced，发布者：zhtvadvanced

[目录] 注意富裕项目变更为收费维护有相关需求请进群私聊群主点击链接加入群聊【鬼手PC逆向3群】： ://jq.qq.com/?_wv 1027&k wXH7AilL 如果觉得本项目对你有帮助可以打赏一下作者毕竟开源不易更新说明显示二维码闪退程序解决方案：安装VS2017插入使用C ++的桌面开发。问题即可解决 2019-7-26 添加艾特群成员功能-好友列表->右键->查看群成员->快捷->艾特群成员添加删除群成员功能-好友列表->右键->查看群成员->快捷->删除群成员针对编译不过的问题删除解密数据库功能请使用VS2017进行编译如果编译不过补充平台工具集和SDK版本修改为机器上的最新版本需要解密数据库功能请使用带解密数据库功能的成品 2019-7-29 修复bug 新增微信重要呼叫的特征码有参数注释和可用于OD搜索的十六进制特征码 2019-8-3 优化自动聊

基于NovelAI算法的QQ群AI画图机器人的实现

Windows客户端开发

7,655

社区成员

18,845

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章