安卓手机有什么记事本软件可以计算字数?
1、【手写记事本】手写记事本 HandCalendar是一款支持手写功能的记事本、备忘录、日记本,同时支持将记下来的内容保存到日历中。
软件的手写功能还算比较强大的,支持10种颜色和3种不同钢笔笔型,而且还支持最多三次的橡皮擦撤销功能。
2、【AK Notepad记事本】AK notepad是一款功能强大的文本文档编辑软件。
软件除了支持文档编辑、读写,TXT文档查看功能之外,还可以通过短信、电子邮件和手机闹铃来与别人分享需要注意的事件提醒。
3、【随手写】随手写绝对是最方便的便签软件、独创智能缩放。
支持手写(原笔迹)和键盘混合输入。
功能特色:1、小屏幕也可以记大事情,独创手写键盘混输模式2、任务管理,便签,日历,闹钟,彩信,日程安排3、在照片上自由涂鸦,插图,拍照记事和语音记事4、widget直读当前记事。
安卓上最好的记事本软件还有日程提醒软件是哪个?
有啊,这得看你下载什么记事本软件了我用过的最好用的就是之前在应用宝里找到的一款,叫印象笔记各种功能都有,可以记笔记,也可以提醒你待办事项,平时经常会用得着你要是觉得可以也可以去应用宝里看一下里面有详细的图片,各种功能一目了然如果觉得不错的话就把手机连接到电脑上端的应用宝就可以下载了
安卓记事本软件哪个好
印象笔记很不错,这个软件是我之前在应用宝里发现的,功能很全也很多,可以记笔记,还可以提醒一些事件,还有备忘录功能。
我觉得是所有记事本软件当中最好用的一个了你也可以用用看,可以去应用宝里下载一个,可以先搜索一下看看详细的介绍合适的话连接手机下载就行了也可以自己搜索一下记事本软件,里面有各种类型的记事本软件,足够选择了也都是比较优质的,木有广告的,使用起来很顺畅
求安卓系统的手机记事本软件,能够自动纠错英文单词的。
Dim sFileName As StringDim SearchPrivate Sub dateTimeMenu_Click()Text1.Text = NowEnd SubPrivate Sub deleteMenu_Click()Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)End SubPrivate Sub findMenu_Click() Search = InputBox("请输入要查找的字词:")Dim Where1 '获取需要查找的字符串变量Text1.SetFocus '文本框获得焦点,以显示所找到的内容Search = InputBox("请输入要查找的字词:")Where1 = InStr(Text1.Text, Search) '在文本中查找字符串If Where1 Then'若找到则设置选定的起始位置并使找到的字符串高亮Text1.SelStart = Where1 - 1Text1.SelLength = Len(Search)' Me.Caption = Where1 '测试用'否则给出提示Else: MsgBox "未找到所要查找的字符串。
", vbInformation, "提示"End IfEnd SubPrivate Sub findNextMenu_Click()Dim Where2 Dim StartMe As Integer '查找的起始位置变量 Text1.SetFocus '文本框获得焦点 StartMe = Text1.SelLength + Text1.SelStart + 1 '给变量赋值 Where2 = InStr(StartMe, Text1.Text, Search) '令其从上次找到的地方找起 If Where2 Then Text1.SelStart = Where2 - 1 Text1.SelLength = Len(Search) Else: MsgBox "未找到所要查找的字符串.", vbInformation, "提示" End IfEnd SubPrivate Sub aboutMenu_Click() MsgBox Space(2) & "文本编辑器版本号1.0" & Chr(13) & "由西南财经大学天府学院" & Chr(13) & Space(5) & "肖忠 开发" & Chr(13) & Space(2) & "copyright:天府学院"End SubPrivate Sub allMenu_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub backcolorMenu_Click() '设置背景色代码 Form1.CommonDialog1.Action = 3 Text1.BackColor = Form1.CommonDialog1.ColorEnd SubPrivate Sub colorMenu_Click() '改变文字颜色代码 Form1.CommonDialog1.Action = 3 Text1.ForeColor = Form1.CommonDialog1.ColorEnd SubPrivate Sub cutMenu_Click() Clipboard.SetText Text1.SelText Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)End SubPrivate Sub exitMenu_Click() EndEnd SubPrivate Sub fontMenu_Click() '字体菜单代码 Form1.CommonDialog1.Flags = 3 Or 256 Form1.CommonDialog1.Action = 4 If Len(Form1.CommonDialog1.FontName) = 0 Then Form1.Text1.FontName = "宋体" Else Form1.Text1.FontName = Form1.CommonDialog1.FontName End If Form1.Text1.FontSize = Form1.CommonDialog1.FontSize If Form1.CommonDialog1.FontBold = True Then Form1.Text1.FontBold = True Else Form1.Text1.FontBold = False End If If Form1.CommonDialog1.FontItalic = True Then Form1.Text1.FontItalic = True Else Form1.Text1.FontItalic = False End If Text1.ForeColor = Form1.CommonDialog1.ColorEnd SubPrivate Sub Form_Load() Form1.Text1.Width = Form1.Width - 130 Form1.Text1.Height = Form1.HeightEnd SubPrivate Sub Form_Resize() Form1.Text1.Width = Form1.Width - 130 Form1.Text1.Height = Form1.HeightEnd SubPrivate Sub help1Menu_Click()Form1.CommonDialog1.HelpCommand = cdlHelpForceFileForm1.CommonDialog1.HelpFile = "c:\windows\system32\winhelp.hlp"CommonDialog1.ShowHelpEnd SubPrivate Sub newMenu_Click() If Len(Trim(Text1.Text)) = 0 Then Form1.Caption = "我的记事本" & "--" & "未命名" sFileName = "未命名" Text1.FontSize = 15 Text1.FontName = "宋体" Text1.Text = "" Else Call saveAsMenu_Click Form1.Caption = "我的记事本" & "--" & "未命名" sFileName = "未命名" Text1.FontSize = 15 Text1.FontName = "宋体" Text1.Text = "" End IfEnd SubPrivate Sub openMenu_Click() '打开文件代码 If Len(Trim(Text1.Text)) = 0 Then Form1.Caption = "我的记事本" Form1.CommonDialog1.Filter = "文本文件|*.txt" Form1.CommonDialog1.Flags = 4096 Form1.CommonDialog1.Action = 1 If Len(Form1.CommonDialog1.FileName) > 0 Then sFileName = Form1.CommonDialog1.FileName Form1.Caption = Form1.Caption & "--" & Form1.CommonDialog1.FileTitle Open sFileName For Input As #1 Text1.FontSize = 15 Text1.FontName = "宋体" Do While Not EOF(1) Line Input #1, Text$ All$ = All$ + Text$ + Chr(13) + Chr(10) Loop Text1.Text = All Close #1 End If Else Call saveAsMenu_Click Form1.Caption = "我的记事本" Form1.CommonDialog1.Filter = "文本文件|*.txt" Form1.CommonDialog1.Flags = 4096 Form1.CommonDialog1.Action = 1 If Len(Form1.CommonDialog1.FileName) > 0 Then sFileName = Form1.CommonDialog1.FileName Form1.Caption = Form1.Caption & "--" & Form1.CommonDialog1.FileTitle Open sFileName For Input As #1 Text1.FontSize = 15 Text1.FontName = "宋体" Do While Not ...