1.VB中关于给文字添加下划线和删除线

qq昵称下面带横线怎么弄_qq昵称如何实现下划线和删除线效果

方法如下:

1:text-line-through-color:设置删除线的颜色。

2:text-overline: text-overline-color: 设置上划线的颜色

3:text-underline:text-underline-color:设置下划线的颜色

VB中关于给文字添加下划线和删除线

代码使用方法:1.点QQ空间里的自定义==》个人设置==》新建模块.

2.把代码复制进评论栏(去掉地址栏及栏的 ://字样)

3.提交.(ok了)

****************************************************************************************

天气预报代码:

<iframe name="I1" src="://weather.qq/inc/ss150.htm" width="250" height="240">

</iframe>

****************************************************************************************

Flash代码:(FLASH地址要以.swf结尾)

</textarea><embed src=’’://你的Flash地址’’quality=high pluginspage=’’://.macromedia/shockw ... sion=shockweflash’’ type=’’lication/x-shockwe-flash’’ width=330 height=240></embed>

透明FLASH:

</textarea><embed src=://你的Flash特效地址 wmode=transparent style="position: absolute" width=380 height=270>

注:width=和height=后面的数字是填FLASH大小高矮度..

****************************************************************************************

背景音乐代码:

</textarea><embed src=://你的背景音乐地址 width=0 height=0 loop= true> (此代码不显播放器)

</textarea><embed src=://你的背景音乐地址 width=2 height=2 loop= true> (此代码显播放器)

1.如何得到音乐地址...

首先打开百度音乐搜索 ://mp3.baidu

输入歌名..格式(只能是MP3和WMA)→查找

找到歌曲..点试听..

注意:要能听见的..而且听起来不卡的....!!!!(重要)

试听里边有个播放器..播放器右上方有个地址..

右键点击地址...→复制快捷方式

进入音乐盒..点添加

把歌曲地址复制到这里..

添加好以后要在歌曲后边的绿色加号上打勾才能自动播放..!(重要)

****************************************************************************************

MTV代码:(地址要以.rm/.wmv/.asf/.i/.mpg结尾)

(播放器的大小可以自己调整代码中的数值,只需改height =“高度”,width =“宽度”)

以.wmv或者.asf结尾:

</textarea><embed src=://你的文件地址 width=360 height=280 loop= true>

以.rm结尾:

</textarea><embed src=://你的文件地址 type=audio/x-pn-realaudio-plugin console=clip1 controls=ImageWindow height=124 width=180 autostart=true loop=true>

以.i或者.mpg结尾:

</textarea><embed src="音乐源地址" border="0" width="320" height="240" type="lication/x-mplayer2"></embed>

小技巧,想要当你的好友一登陆你的空间就能马上听到最新的音乐视听吗? 技巧在于代码结尾加上wid, 如下

</textarea><embed src=://你的音乐地址 width=360 height=280 wid>

****************************************************************************************

电台代码:(地址要以.asp结尾的地址)

</textarea><embed src= ://你的电台地址 type=audio/x-pn-realaudio-plugin console=clip1 controls=ImageWindow height=124 width=180 autostart=true loop=true><br>

代码

相关作用

<b>加粗</b>

使文字加粗

<i>斜体</i>

使文字倾斜

<u>加下划线</u>

给文字加下划线

<s>加删除线</s>

给文字加删除线

<pre>预设格式

令文件按照原始的排版方式显示

*好用,省去了频繁插入<br>与<p>的烦恼

****************************************************************************************

艺术字代码:

发光文字代码

</textarea><table style="FILTER: glow(color=#6699FF,direction=2)">

<font color=#ffffff size=2>要修改的文字</font>

</table>

其中color是阴影的颜色,可以配合网页色调改变,direction是设置阴影的强度,font color是原字体的颜色。

浮雕的文字

</textarea><table style="FILTER: dropshadow(color=#6699FF, offx=1, offy=1, positive=1);">

<font color=#ffffff>要修改的文字</font>

</table>

其中color是阴影的颜色,可以配合网页色调改变,positive是设置阴影的强度,offx和offy是设置的阴影和文字的距离,font color是原字体的颜色。

阴影的文字

</textarea><table style="FILTER: dropshadow(color=#cccccc, offx=2, offy=2, positive=2);">

<font color=#6CABE7 size=2>要修改的文字</font>

</table>

文本框字体

</textarea><TEXTAREA STYLE="font:12px;font-family:Verdana;color:#666666">输入内容

注:字体(font-family)还可以选用Arial,Tahoma等等;color可自行设定

<tr> 表格列 border="5"边框宽度为5像素,bordercolor="Purple"边框颜色为紫色

<td> 表格栏 bgcolor="Green"表格背景颜色为绿色

****************************************************************************************

插入超链接 (请注意:如果该链接为恶意链接的话,腾讯会自动屏蔽,请大家不要乱用)

文字链接代码 </textarea>点击<a href=’’://你要链接的地址’’ target=’’_blank’’>文字说明</a>

链接代码 </textarea><a href="你要链接的地址" title="文字说明",_blank>

****************************************************************************************

设为首页/加入收藏代码:

<a target=_top href=jascript:window.external.AddForite('://q-zone.qq/client/?uin=313715638';)>〖加入收藏〗</a>..<a href=# onClick="this.style.behior='url(#default#homepage)';this.setHomePage('://q-zone.qq/client/?uin=378656256';);">设为首页</a>

****************************************************************************************

在主页加入钟表的代码:

<embed src='时钟的连接地址'quality=high pluginspage='://.macromedia/shockwe/download/index.cgi?P1_Prod_Version=ShockweFlash'; type='lication/x-shockwe-flash' width=100(宽) height=100(高)></embed>

其中宽和高是 FLASH显示出来的宽度和高度

把以上代码放在新建版快的评论栏中,地址和连接地址清空,什么都不要留!

****************************************************************************************

滚动字:

这是代码:

<marquee border="0" align="middle" scrolldelay="120">想说的字</marquee>

****************************************************************************************

其它代码:

屏蔽右键代码 </textarea><body oncontextmenu="return false"> (这条代码可以防止日记源代码轻易被**,推荐使用)

网页无法另存代码 </textarea><noscript><iframe src=*></iframe></noscript>

网页透明代码 </textarea><body background-color:transparent>

其他html代码

****************************************************************************************

默林魔法老人代码:

<body>

<SCRIPT>

<!--

function crml(nid)

{

try

{

nid=new ActiveXObject("Agent.Control.2");

nid.Connected = true;

nid.Characters.Load("");

return nid;

}

catch (err)

{

return false;

}

}

function chplay ()

{

if (ml=crml ("ml"))

{

var MerlinID;

var MerlinACS;

Merlin = ml.Characters.Character(MerlinID);

Merlin.MoveTo(200,200);

Merlin.Show();

Merlin.Play("Explain");

Merlin.Play("Announce");

Merlin.Speak("修改成您的语言");

Merlin.Play("Gestureright");

Merlin.Play("Pleased");

Merlin.Speak("修改成您的语言");

Merlin.Play("Idle1_1");

Merlin.Hide();

Merlin.MoveTo(600,300);

Merlin.Show();

Merlin.Play("Surprised");

Merlin.Speak("修改成您的语言");

Merlin.Play("Read");

Merlin.Speak("修改成您的语言");

Merlin.Play("Read")

Merlin.Play("GestureUp");

Merlin.Speak("修改成您的语言");

Merlin.Play("DontRecognize");

Merlin.Speak("修改成您的语言");

Merlin.Play("DontRecognize");

Merlin.Play("Greet");

Merlin.Speak("修改成您的语言");

Merlin.Play("Greet");

Merlin.Speak("修改成您的语言");

Merlin.Play("Greet");

Merlin.Hide();

}

}

//-->

</SCRIPT>

<SCRIPT>

<!--

chplay()

-->

</SCRIPT>

</body>

使用方法:

1.新建一个TXT文档.

2.将代码保存.

3.将TXT文档上存到网上(我本来找到一个网站可以上传的.但是现在封了!)

4.得到TXT文档地址.

<iframe id="main" name="I8" frameBorder="0" width="0" scrolling="no" height="0" src="默林文本的连接地址"></iframe>

***************************************************************************************

用小号空间克隆自己的Q-ZONE提高人气的办法!(这个我试过.但验证不出是真是.)

大家是不是都想自己的花快快长大,天天踩啊踩啊真的好累啊!

但是自己的Q-ZONE只有一个网络地址,就象我的是://378656256.q-zone.qq一样,怎么解决这个问题呢!

忽忽,昨天我在无意中发现了这个办法,我们可以用自己的号去开通小号的空间,然后用小号的空间克隆大号的空间(镜象),这样你的Q-ZONE不是又多了一个网络地址吗,忽忽,2个号拉起票来给一个号灌溉应该快点吧,要是你小号多的话不防克隆他10个8个的,忽忽!

克隆自己空间办法如下:

开通自己小号空间,新建立一个版块,在评论中插如以下代码:

<iframe id="main" name="I8" frameBorder="0" width="0" scrolling="no" height="0" src="378656256.q-zone.qq"></iframe>

****************************************************************************************

代 码

相关作用

<br>

换行

<p>一段文字</p>

段落

<bgcolor="#00FF00">

背景颜色(#00FF00为绿色)

-2N

<text="#0000FF"> -x.

字体颜色(#0000FF为蓝色)

-zz

<p align="left">文字</p>

文字左对齐

<p align="center">文字</p>

文字居中

<p align="right">文字</p>

文字右对齐

****************************************************************************************

播放音乐代码中的参数介绍

Autostart

是否在音乐下载完之后就自动播放。true 是,false 否

loop

是否自动反复播放。LOOP=2 表示重复两次,true 是,false 否

hidden

是否完全隐藏控制画面,true 为是,false 为否

-,-

STARTTIME="分:秒"

设定歌曲开始播放的时间。如 STARTTIME="00:30" 表示从第30秒处开始播放

WIDTH="整数" 和 HIGH="整数"

设定控制面板的高度和宽度。(若 HIDDEN="false")

---

ALIGN="center"

设定控制面板和旁边文字的对齐方式,其值可以是 top、bottom、center、baseline、 left、right、texttop、middle、absmiddle、

absbottomCONTROLS="smallconsole"

设定控制面板的外观。预设值是 console。

console 一般正常面板 smallconsole 较小的面板 playbutton

只显示播放按钮 pausecutton 只显示暂停按钮 stopbutton 只显示停止按钮 volumelever 只显示音量调节按钮

提示

关于QQ空间的一切代码写入日记内容区及标题栏都必须带上标记</textarea>方能生效

任何标记皆由"<"及">"所围住,如 <P>

标记名与小于号之间不能留有空白字符

参数只可加于起始标记中

在起始标记之标记名前加上符号"/"便是其终结标记,如 </font>

标记均成对出现,除了换行符<br>单独使用以外

标记字母大小写皆可

Private Sub Check1_Click()

Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)

End Sub

Private Sub Check2_Click()

Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)

End Sub