良書網 INTERIOR TRIP 雅姫が巡る、15の居心地がいい家出版社: 集英社 Code/ISBN: 9784087807592

圖片只供參考

圖書

INTERIOR TRIP 雅姫が巡る、15の居心地がいい家

作者	雅姫
出版社	集英社
出版日期	2015-6-19
編號/ISBN	9784087807592
定價 (配送說明)	通常配送 ~~170~~145 港幣 Saved $25 3-4 週到港
數量	本

關於此書

人気ショップオーナー、スタイリスト、陶芸家、イラストレーター…。スタイルがある人の住まいと暮らしは、リアルなヒントにあふれています。

目次
１　ＳＨＯＰ　ＯＷＮＥＲ’Ｓ　ＨＯＭＥ—ショップオーナーの家（オルネドフォイユ　谷あきらさん—ＤＩＹの家
ブロカント　松田尚美さん　行弘さん—フレンチシックな家
Ｆ．Ｏ．Ｂ．ＣＯＯＰ　益永みつ枝さん—スタンダードで彩る家
ラヴィアラカンパーニュ　ロシャン・シルバさん—手のぬくもりが包む家）
２　ＣＲＥＡＴＯＲ’Ｓ　ＨＯＭＥ—クリエイターの家（フラワースタイリスト　平井かずみさん—花が溶け込む家
編集者・ライター　一田憲子さん—味わい深い平屋の家
フォトグラファー　馬場わかなさん—普段着を楽しむ家
インテリアスタイリスト　石井佳苗さん—暮らしを手作りする家
イラストレーター　エドツワキさん—ミニマルに暮らす家
陶芸家　花岡隆さん—器が息づく家）
３　ＦＲＥＮＣＨ　ＨＯＭＥ—フランスの家（クリエイター　イザベル・ドゥポワ＝ドゥメさん—手仕事と色彩が織りなす家
画家　ゲオルグ・ハレンスレーベンさん　絵本作家　アン・グットマンさん—遊びをちりばめた家
アーティスト　ステファン・フロジェさん　ジェさん—ナチュラルトーンで描く家
ボンポワン、メルシー創設者　マリー・フランス＝コーエンさん—エスプリの効いた家）
４　ＭＡＳＡＫＩ’Ｓ　ＨＯＭＥ—私の家（モデル・デザイナー　雅姫—今にフィットする家）

精選產品

Disney 廸士尼

涵蓋樂園攻略、經典故事、繪本、手作與樂譜等。

陶瓷藝術日本陶藝書

收錄大師工藝、器物美學與技法指南，領略職人精神。

日本寫真集

人氣影星與偶像的限定寫真集。

日本週刊組裝雜誌

每期收集精密零件，親手打造高階經典模型。

MOOK 日本品牌附錄書

附贈限定潮牌包款與雜貨，超值收藏熱門潮流。

樂譜專區

動漫影視、J-Pop與古典，鋼琴、吉他、管樂等樂器一應俱全。

日本旅遊

日本自由行, 賞櫻絕景, 溫泉攻略, 飲飲食食, 自駕遊推薦。

《Casa BRUTUS》雜誌書

專注日本建築、設計與生活美學指南。

日本手作書

日本手作書：從飾品到生活小物，啟發無限創意，打造質感生活美學。

Imports System.Xml.Linq Imports System.Text Public NotInheritable Class SideBannerService Private Sub New() End Sub ' ========================================================================= ' FACEBOOK + SIDE BANNERS ' ========================================================================= Public Shared Function RenderSideFacebook() As String Dim path As String = "F:\xml_data\sidebanner.xml" Dim sb As New StringBuilder() sb.Append("

") ' 1. Load XML Banners (if file exists) If System.IO.File.Exists(path) Then Dim doc As XDocument = XDocument.Load(path) Dim items As IEnumerable(Of XElement) = doc.Root.Elements("side_banner") For Each item As XElement In items Dim url As String = If(item.Element("url") IsNot Nothing, item.Element("url").Value, "") Dim title As String = If(item.Element("title") IsNot Nothing, item.Element("title").Value, "") Dim isBlank As String = If(item.Element("isblank") IsNot Nothing, item.Element("isblank").Value, "") Dim img As String = If(item.Element("images") IsNot Nothing, item.Element("images").Value, "") Dim target As String = If(isBlank.ToUpper() = "Y", " target='_blank' rel='noopener noreferrer'", "") sb.Append("

") sb.Append(" ") sb.Append("

") Next End If ' 2. Facebook Widget Box (Matching exact legacy layout) sb.Append("

") sb.Append("

") ' Top Blue Header Bar sb.Append("

") sb.Append(" facebook") sb.Append("

") ' Inner Body: Logo + Name + Follow Button sb.Append("

") ' Left: Logo sb.Append(" ") sb.Append(" yoihon

") sb.Append(" ") ' Right: Text and Button sb.Append("

") sb.Append(" yoihon....") sb.Append(" ") sb.Append(" ") sb.Append(" Follow Page") sb.Append(" ") sb.Append("

") sb.Append("

") Return sb.ToString() End Function ' ========================================================================= ' FEATURE SECTION (FREE DELIVERY + PAYMENT METHODS) ' ========================================================================= Public Shared Function RenderSideFeature(lang As String) As String Dim sb As New StringBuilder() Dim altText As String = LanguagePack.GetText("lang_txt_freedelivery", lang) If String.IsNullOrEmpty(altText) Then altText = "Free Delivery" sb.Append("

") ' Free Delivery Banner sb.Append("

") sb.Append(" ") sb.Append(" " & altText & "

") sb.Append(" ") sb.Append("

") ' Payment Methods sb.Append("

") sb.Append("

") sb.Append(" ") sb.Append(" Payment Method Paypal, Payme, FPS, Visa, Mastercard

") sb.Append(" ") sb.Append("

") sb.Append("

") sb.Append(" ") sb.Append(" Octopus Card

") sb.Append(" ") sb.Append("

") sb.Append("

") Return sb.ToString() End Function End Class