爱淘唯一
A明天你好!
如果是基于字符界面的话,给你个思路1、整个程序的逻辑是一个循环while(0){捕获键盘输入根据输入确定执行的功能:1、功能操作2、编辑输入或修改操作刷新显示缓冲区的内容}2、键盘输入包括字符、功能键(Fx、del、bk等等)、方向键3、缓冲区是一个动态链表,链表的每个元素是一个字符串,表示是屏幕上一行的内容,可以根据要求限制长度或者调整显示方式
owenwoohyuk
Dim gaibian As BooleanDim shijian As StringPrivate Sub baocun_Click()CommonDCancelError = TrueCommonDFilter = "文本文档(*xt)|*xt"CommonDDialogTitle = "保存"On Error GoTo CancelCommonDShowSaveOpen CommonDFileName For Output As #1Print #1, TTextClose #1Cancel:End SubPrivate Sub charushijian_Click()shijian = TimeSendKeys shijianEnd SubPrivate Sub daika_Click()If gaibian = True ThenMsgBox "是否保存!"baocun_ClickEnd IfCommonDCancelError = TrueCommonDFilter = "文本文档(*xt)|*xt"On Error GoTo CancelCommonDShowOpenOpen CommonDFileName For Input As #1Do While Not EOF(1)On Error Resume NextLine Input #1, aspect$whole$ = whole$ + aspect$LoopClose #1TText = whole$Cancel:End SubPrivate Sub Form_Load()gaibian = FalseEnd SubPrivate Sub Form_Resize()TWidth = FScaleWidthTHeight = FScaleHeightEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim c As IntegerIf gaibian = True Thenc = MsgBox("文档已经改变,你是否要保存!", vbOKCancel, "提示!")If c = vbOK Thenbaocun_ClickElseEndEnd IfEnd IfEnd SubPrivate Sub fuzhi_Click()CClearCSetText TSelTextEnd SubPrivate Sub jianqie_Click()CClearCSetText TSelTextTSelText = ""End SubPrivate Sub quanxuan_Click()TSelStart = 0TSelLength = Len(TText)End SubPrivate Sub shiyongshuoming_Click()MsgBox "本程序由 海猛 制作,谢谢大家使用^_^" & vbNewLine & "作者 QQ:419317946", vbOKOnly + vbInformation, "说明"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const ctrl = 3gaibian = TrueEnd SubPrivate Sub tihuan_Click()Dim tidai As StringDim a As StringIf TSelText = "" Thena = MsgBox("请输入你要被替换的内容", vbOKOnly, "提示")Elsetidai = InputBox("请输入你要替换的内容", "替换")TSelText = tidaiEnd IfEnd SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub xinjian_Click()TText = ""FileName = "未命名"FCaption = FileNameEnd SubPrivate Sub zhantie_Click()TSelText = CGetTextEnd SubPrivate Sub chazhao_Click()Dim search As StringDim inwhere As Integersearch = InputBox("请输入你要查的内容", "查找")inwhere = InStr(TText, search)If inwhere > 0 ThenTSelStart = inwhere - 1TSelLength = Len(search)ElseMsgBox "没有找到你要找的内容"End IfEnd Sub
请我您所以什么语言的手机编程软件,java和android可以用aide,c/c++也可以用aide,但要安装支持插件。宁外c4droid(c++编译器)也可以
你是要制作出一个类似于微软的文本文档的东西吗?
编程 这是每个游戏编程FAQ里都有的问题。这个问题每星期都会在游戏开发论坛上被问上好几次。这是个很好的问题,但是,没人能给出简单的答案。在某些应用程序中,总有一
10分就想要这个源码?要是c#还行,开发比较快,java有点不划算
如果你的文本编辑器保存的文件名叫xt,那么改成html,直接双击打开就可以了。
优质论文问答问答知识库