Foxtable(狐表)用户栏目专家坐堂 → 老师,请问如何实现 通过条件判断分别显示 toptip 和 Toast


  共有5414人关注过本帖树形打印复制链接

主题:老师,请问如何实现 通过条件判断分别显示 toptip 和 Toast

帅哥哟,离线,有人找我吗?
873773115
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:2887 威望:0 精华:0 注册:2017/11/5 13:39:00
老师,请问如何实现 通过条件判断分别显示 toptip 和 Toast  发帖心情 Post By:2022/11/25 11:06:00 [只看该作者]

在网页中判断姓名栏是否为空,如果不为空则显示 定义的toast 显示上传成功, 否则顶部提示 定义好的 toptip1     参考帮助文档例子,也修改了.js文件 实现不了   麻烦老师指导下 谢谢! 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/25 11:41:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
873773115
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:2887 威望:0 精华:0 注册:2017/11/5 13:39:00
  发帖心情 Post By:2022/11/25 13:01:00 [只看该作者]

            wb.AddTopTips("", "toptip1", "请输入姓名和手机号!")
            wb.AddForm("", "form1", e.path).Attribute = "" '调用函数
            wb.AppendHTML("<style>.mark{background-color:Aqua; color:white;border-radius;5px;}</style>", True)
            
            With wb.AddInputGroup("form1", "ipg1")
                .AddInput("kh", "姓名", "text")
                .AddInput("dh", "手机号码", "number")
            End With
            
            wb.InsertHTML("form1", "<button id ='btnok' name = 'btnok' type = 'submit' Class = 'weui_btn weui_btn_primary' style= 'background-color:DeepSkyBlue;width:96%; margin:auto;'> 提交 </button> <br <br/> <br <br/>")
            
            wb.AppendHTML("<script src='./valid.js'></script>") '引入脚本文件


老师 以上的代码按照参考示例,如果姓名和电话号码  任意一项未填写时,网页顶部都会直接提示,然后想实现如果都正确填写的话,则弹出一个提示   填写成功,继续其他操作,如图
图片点击可在新窗口打开查看此主题相关图片如下:1669352402626.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/25 13:32:00 [只看该作者]

把完整代码放入记事本和js文件一起发上来

 回到顶部
帅哥哟,离线,有人找我吗?
873773115
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:2887 威望:0 精华:0 注册:2017/11/5 13:39:00
  发帖心情 Post By:2022/11/25 14:23:00 [只看该作者]

s文件不能上
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:js文件 valid.txt

传 改了下名字   原名是 valid.js
[此贴子已经被作者于2022/11/25 14:25:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
873773115
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:2887 威望:0 精华:0 注册:2017/11/5 13:39:00
完整代码  发帖心情 Post By:2022/11/25 14:24:00 [只看该作者]

dim sr As String
Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Select Case e.Path
    Case "test.htm"
        sr = e.path
        sr = sr.Substring(0, sr.IndexOf("."))
        If e.PostValues.count = 0 Then
            
            wb.AddTopTips("", "toptip1", "请输入姓名和手机号!")
            wb.AddForm("", "form1", e.path).Attribute = "" '调用函数
            With wb.AddInputGroup("form1", "ipg1")
                .AddInput("kh", "姓名", "text")
                .AddInput("dh", "手机号码", "number")
            End With
            
            wb.AddToast("", "t1", "操作完成", 1)
            wb.InsertHTML("form1", "<button id ='btnok' name = 'btnok' type = 'submit' Class = 'weui_btn weui_btn_primary' style= 'background-color:DeepSkyBlue;width:96%; margin:auto;'> 提交 </button> <br <br/> <br <br/>")
            wb.AppendHTML("<script src='./valid.js'></script>") '引入脚本文件
        End If
    Case Else
        wb.InsertHTML("无效地址(404)")
End Select

e.WriteString(wb.Build)
[此贴子已经被作者于2022/11/25 14:25:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/25 14:37:00 [只看该作者]

看不出问题,请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
873773115
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:2887 威望:0 精华:0 注册:2017/11/5 13:39:00
目前 填写正常,未正确填写的话顶部提示也正常 就是想在正确填写数据后,弹出一个 toast提示  发帖心情 Post By:2022/11/25 14:52:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:httpf服务端.foxdb

[此贴子已经被作者于2022/11/25 14:52:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/25 15:02:00 [只看该作者]

function valid(){
   var v1 = document.getElementById("kh").value;
   var v2 = document.getElementById("dh").value;
   if (v1 && v2){
   show("t1",2000);
return true
}
   show("toptip1",2000);
   return false;
}

 回到顶部
帅哥哟,离线,有人找我吗?
873773115
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:2887 威望:0 精华:0 注册:2017/11/5 13:39:00
  发帖心情 Post By:2022/11/25 15:11:00 [只看该作者]

谢谢老师!

 回到顶部