- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Placeholder，如何改变字体、文字大小、换行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99597)
-- 发布时间：2017/4/21 23:43:00
-- Placeholder，如何改变字体、文字大小、换行？
With wb.AddInputGroup("","ipg2","男生服务")
.AddTextArea("bz1",5).Placeholder = "男生服务相关:1.普通会员:每天免费3次.<br />2.中级会员:每天免费9次.3.免费升级中级会员:条件符合自动升级为中级会员.
End With
Placeholder，
1.如何改变字体、文字大小？
2.测试发现<br />换行,不能用
3.官方公测的界面字体用的是？
[此贴子已经被作者于2017/4/22 9:15:19编辑过]
-- 发布时间：2017/4/22 9:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:placeholder.zip |
把附件css文件放到d:\\web\\目录中，使用下面代码测试
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<link rel=\'stylesheet\' href=\'./placeholder.css\'/>",True)
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","登录")
.AddInput("xm","户名","text").Placeholder = "请输入用户名"
.AddInput("pw","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2017/4/22 9:35:00
--
按楼上操作了，但是Placeholder文字颜色没有改变
-- 发布时间：2017/4/22 10:28:00
--
测试没有问题。上例子说明。另外这玩意和浏览器有关，有些浏览器不支持。傲游、搜狗、chrome和iE11测试可以，其它没测试过。手机微信浏览器测试也可以
css文件有没有放对地方